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Four new Project solo modules are presented. A module 
on computer graphing with an x-y plotter explains the format for 
input to the computer, demonstrates the effect of scaling, and gives 
several on-line exercises to produce graphs. Several student- writ ten 
programs in elementary and advanced mathematics, French, and U.S. 
history show how peer teaching can be accomplished with a computer. 
Four computer games are presented: hide-and-seek, NIM, MODULO, and 
space war. Four simulations — lunar landing module, crazy eights, 
rectangular billiards, and eliptical billiards — are also offered. 
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Computing Builds Strong Minds Ten Ways 

Or is it twelve? Some recent research by Emilie Zielinski (author of the 
Project Solo modules on matrices) revealed that the distinctions made in educa- 
tional computing (and its benefits) have grown sharper with the years. This is 
especially true in places where the full power of computing has been made avail- 
able to students. Some impressions on where this is taking us, and where the 
real action will be in a few years, are giver in the paper ’’Guidelines for Computer 
Related Educational Innovation" (available upon request). Some examples of 
how these distinctions reveal themselves in the real school world today are given 
in the enclosed modules. A new 16 mm. film ("My Computer Understands Me") 
which explores tuis subject will be ready this fall. 



C< ■ w Puting and Peer Teaching , , 

” The material in this booklet comes from the students of Rosemarie Kavanagh, 
Mathematics teacher at Fox Chapel High School. The significance of this work is 
very deep. It has both educational and economic implications that deserve further 
•itudy. All 14 programs in this booklet are student authored. 

Computer Games an d Computer Simulation s # 

Distinctions can be made between games and simulations, although the pro- 
grams students ^rite in tnese areas often combine both concepts. The real fun 
begins wi.f v . students modiiy, or better yet create the programs behind simulations 
and games . For this reason, we believe that listings of such programs should 
always be f^rr’ silted to students. The authorship of LMLAND may surprise you. 

Son of Project ~»;lo 

Project SoTo funding terminates at the end 
of June. We were tempted to include a question- 
naire with this newsletter to find out what our 
readers would like tc see from future projects of 
this sort. Instead, we’d like to (a) seriously invite 
free-form feedback in the form of a short (or long) 
note from you or your students, and (b) promise to 
keep you informed on some quite new directions we 
will be exploring. To say we are excited about 
these would be the understatement of the year. 



* Supported in part by NSF Grant GJ-1077. 
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Cotnfuti) 

In this module# you will learn to use the plotter in several 
stages. 

# You will study the format of input tc the plotter and then 
do some off-line exercises which illustrate the various forms 
that input can take. 

0You will learn about scaling# which has to do with getting 
the graph to have the right shape and size. A scaling example 
will be given which will also introduce the use of a BASIC pro- 
gram to do the typing. 

0The most interesting activity in the module involves several 
on-line exercises which produce graphs like the ones on the cover. 




COMPUTER GRAPHING WITH AN X-Y PLOTTER 



Drawing the graph of a function can often give much more in- 
sight into its properties than looking at a formula which defines 
it or at a table of its values. It is hard to overstate the use- 
fulness of graphs in estimating zeros of functions, maximum and 
minimum points, points of inflection, etc. Graphs make it pos- 
sible for you to use your geometric intuition in considering how 
one variable is related to another. For a discussion of graphs 
and coordinate systems, See Dolciani et al. Modern Introductory 
Analysis Chapter 5 (Houghton Mifflin Co., Boston, Massachusetts, 
021C7) . 

Because graphs are one of the most valuable forms that com- 
puter output can take, it would be most helpful to have a device 
capable of converting the standard form of output (printed numbers) 
to lines or points on a sheet of graph paper. The Hewlett-Packard 
Graphic Plotter is such a device. It transforms lists of number 
pairs which are typed on a terminal (either by hand or by a computer 
program) into graphs. 

In this module, you will learn to use the plotter in several 
stages • 

You will study the format of input to the plotter and chen 
do some off-line exercises which illustrate the various forms 
that input can take. 

You will learn about scaling, which has to do with getting 
the graph to have the right shape and size. A scaling example 
will be given which will also introduce the use of a BASIC pro- 
gram to do the typing . 

The most interesting activity in the module involves several 
on-line exercises which produce graphs like the ones on the cover. 

At this poinu there are several directions that you can take: 
Module #0132 deals with the problem of graphing the paths of Pirates 
on the high seas. Module #0134 explores the use of computer graph- 
ing in solving interpolation/extrapolation problems. Module #0133 
deals with the interesting topic of drawing three-dimensional graphs. 
Once you have gotten started by doing some of the problems sugges- 
ted in this module, it should be easy to come up with interesting 
ideas of your own. 
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PLOTTER INPUT FORMAT 



The plotting area of the Hewlett-Packard Plotter should be 
thought of as an xy plane where 0_<x£9999 and 0£y£9999. The point 
(0,0) is the lower left corner of the plotting area and the point 
(9999,9999) is the upper right corner. The pen can move to any 
point in that area whose coordinates can be specified by a pair 
of integers in those ranges. 

MOTE: TheKe ane 10,000 K JO, 000 ■ 1 00,000,000 Auch point 4. 

Zj$ the plotter anea lb 10" x 15" ( 150 6quan.e inches) 
that mean* that theKe ahe about 667,000 plottable 
point 4 pex, Aquasie inch, Vo you think you could. *ee 
the difi(esience between an unplottable point [*ay 
[462& .9079342 , 9175.210365)) and the neane&t plottable 
point ( [46 29 , 91 75 ) )? 



Basically what happens is that whenever a statement of the 
form \ PRINT x.y! is executed on a terminal (which is connected to 
the plotter) , the pen moves to the point (X,Y) in the plotting 
area. There are two basic modes of plotting as illustrated in 
Figure 1. In the first case (Figure la), the terminal output 
contains a line consisting of the letters PLTL (plot lines) fol- 
lowed by a list of number pairs. The plotted output consists of 
lines drawn between the points represented by the number pairs. 
The code PLTT shown on the last line means plot terminate. 




PLTL 




1000 


7000 


2000 


3000 


3000 


7000 


4000 


3000 


5000 


7000 


PLTT 





TERMINAL OUTPUT 




PLOTTER OUTPUT 



Figure la. 
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The other mode (Figure lb) plots points (PLTP) without drawing 
the lines between them* That is, it puts a dot on the grarV. paper 
at the location corresponding to each of the number pairs. 





PLTP 




1000 


7000 


2000 


3000 


3000 


7000 


4000 


3000 


5000 


7000 


PLTT 





TERMINAL OUTPUT 
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PLOTTER OUTPUT 



Figure lb. 



The following list explains the form of the data that is fed 
to the plotter. In off-line mode the data is fed to the plotter 
directly by typing on the teletype. In on-line mode it is fed to 
the plotter by PRINT statements. After either PLTL or PLTP is 
typed on the terminal , numerical data should be typed in the 
following format: 

A. The coordinates of each point should be placed on a 
different line. 

B. Each value of x (first coordinate) or y (second 
coordinate) should be a non-negative integer less 
than or equal to 9999 and may not have a decimal 
point. 

C. Any number of spaces may be typed before the x 
coordinate. 

D. The first space after the x coordinate acts as the 
separator between the x and y coordinates . 

E. Any number of spaces may be typed between the x 
coordinate and the y coordinate. 
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F, The y coordinate may be followed by either: 

1. A space . In this case the rest of the line up 
to the carriage return is ignored. The carriage 
return causes the pen to move to the point whose 
coordinates were typed. 

2. An up-arrow ( + ) . If an up-arrow immediately fol- 
lows the y-coordinate, the pen moves to the point 
while lifted from the paper. 

NOTE: In PLTP mode, the pen aPwayi move* while, lifted lo in thil 

caie the ap-aaaow can leave no puapoie. The puapoie it 
can leave in PLTL mode will be illuitaated in the exeaciie 

below. 



Off-Line Exercise 



For this exercise you need a plotter connected to a terminal 
but no computer. That is, you will be using the terminal in local 
. (off-line) mode. 



Prepare the plotter for plotting (See Appendix A) and type 
the following on the terminal: 



PLTL 



1333 

2666 

2666 

1333 

1333 

2666 

3333 

4666 

4666 

3333 



3000 
3000 
5000 
5000 
7000 
7000 
7000 + 
7000 
7000 
3000 




3333 


7000 


5333 


7000 + 


5333 


3000 


6666 


3000 


7333 


7000 + 


7333 


3000 


8666 


3000 


8666 


7000 


7333 


7000 


PLTT 





Scaling 

Suppose you wanted to graph the function y = x 3 for -1 < x < 1 
on the Hewlett-Packard Plotter. The corresponding values of y also 
have the range -1 < y < 1 . Recall that no points in rhe plotting 
area (0£x<9999 and 0£y£9999) have negative coordinates. Furthermore 
the graph of a function over such a small interval (length 2) would 
appear to be just a dot anyway. This suggests a couple of questions: 

a. How do you draw graphs which contain points with 
negative coordinates? 

b. How do you graph a function so that the graph is 
a reasonable size? 
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The answer lies in the fact that multiplying every value of 
x by a constant and adding another constant and doing the same 
for y doesn't change the basic shape of the graph. 

The following points are all on the graph of the function 
y = x 3 : 



(-1, 


-1) 


(.1, .001) 


(-.9, 


-.729) 


(.2, .008) 


(-.8, 


-.512) 


(.3, .027) 


(-.7, 


-.343) 


(.4, .064) 


(-.6, 


-.216) 


(.5, .125) 


(-.5, 


-.125) 


(.6, .216) 


(-.4, 


-.064) 


(.7, .343) 


(-.3, 


-.027) 


(.8, .512) 


(-.2, 


-.008) 


(.9, .729) 


(-.1, 


-.001) 


(1, 1) 



( 0 , 0 ) 



If we multiply every value of x by 4000 and add 5000 , and then 
ignore all digits after the decimal point, and do the same for every 
value of y we get the following set of points: 



( 1000 , 1000 ) 
(1400, 2083) 
(1800, 2951) 
(2200, 3627) 
(2600, 4135) 
(3000, 4500) 
(3400, 4743) 
(3800, 4891) 
(4200, 4967) 
(4600, 4995) 
(5000, 5000) 



(5400, 5003) 
(5800, 5031) 
(6200, 5107) 
(6600, 5255) 
(7000, 5500) 
(7400, 5863) 
(7800, 6371) 
(8200, 7047) 
(8600, 7915) 
(9000, 9000) 



SET B 



If you look at Figure 2 you can see that depending on which 
axis labels you look at you can interpret the graph as belonging 
to either of the two sets of points. A or B. 

1 X 9000 
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Figure 2. 
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The important point to notice is that the coordinates of the 
second set of points are in the right range for producing a graph 
on the Hewlett-Packard Plotter. 

The following is a program in BASIC which draws the graph of 
the function y = x 3 for -1 < x <. 1 using the above scaling method. 
Run the program with the plotter attached to your terminal then 
compare the listing of the program, the output on tne terminal, 

and the graph. 







10 
20 
25 
30 
40 
50 
60 
70 
80 
90 
100 
110 
1 15 
120 
130 
140 
150 
160 
1 70 
180 
185 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 



PRINT "PLTL 



«« 



1 STEP • 1 



This draws 
of y s x 3 . 



FOR Z»- 1 TO 
LET X»Z 
LET Y » X * 3 
LET X=X*4000+5000 
LET Y * Y*4000 + 5000 
PRINT INTCX) # INT< Y > 

NEXT Z 

PRINT M PLTT" — 

PRINT "PLTL" 

» 5000 

s 1000 TO 9000 STEP 400 
X#Y 

X# Y - 
X# Y 



50 



LET Y 
FOR X 
PRINT 
PRINT 
PRINT 
NEXT X 

PRINT "PLTT" 

PRINT "PLTL" 

LET X - 5000 
FOR Y * 1000 
PRINT X# Y 
PRINT X « 50 # Y 
PRINT X#Y 
NEXT Y 

PRINT "PLTT" ~ 

PRINT "PLTL" 

PRINT 950# 4850 
PRINT 975# 4850 
PRINT 1000#4800:"»" 
PRINT 1 000 # 4900 
PRINT 9000# 4800 : "» " 
PRINT 9000 #4900 
PRINT 4775# 1000:"t" 
PRINT 4800# 1000 
PRINT 4850 # 950 J " 
PRINT 4850 #1050 
PRINT 4850#8950:"t" 
PRINT 4850#9050 
PRINT **PLTT" — 

END 



TO 9000 STEP 400 



the graph 



This puts calibra- 
tion marks on the 
X axis and draws 
the X axis. 



Thir puts calibra- 
tion marks on the 
Y axis and draws 
the Y axis. 



What does this do? 
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Some Generalizations : 

To see how to determine the scaling constants, consider the 
situation represented below: 

PLOTTER PAPER 




9000- 



1000 - 



! 




1 


1 '' \ 


1 


\,' ' 


\ 1 


1 \ '' 


V'l 


i 


J 



0 1000 



9oFo 9999 



You want to graph a function where x and y have ranges &<x< 

b and c < w < d so that the graph fits in that portion of the plot”* 

ted area wh<-re 1000<x<9000 and 1000^x9000. To do this you want 

to find constants K__, K , J , and J such that: 

y x y 



x' y r x' 
exactly when 
exactly when 



1000 < K *x + J < 9000 

A A 



a <x <. b 
c <y <d 

It turns out that the following formulas accomplish this: 



1000 <. K *y + J < 9000 
«* •* 



K - (9000 - 1000) / (b - a) 

X 

K y = (9000 - 1000)/(<: - c) 

J x = 5000 - K (a + b)/2 
J y = 5000 - K y (c + d)/2 

You should apply them to the problem for which the above program 

was written to verify that K = K * 4000 and J ss J = 5000. 

x y x y 

Naturally there is nothing special about the numbers 1000 
and 9000; if you wanted a slightly larger graph you could use 
500 and 9500. 
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ON-LINE EXERCISES 



1. Write a BASIC program to graph the function y=x 3 -x 2 +x-l on the 
interval “3£x£3. 

HINT: -34<y<20. 

2. Write a program which uses the random number function to dr-"w 
random size squares at random points on the graph paper. 

3. Long Term Project: Write a program which reads in a string of 

characters and then prints the string on the plotter • 

4. For those who are familiar with circular functions: 

Find all values of x in the interval . l£x<l which 
satisfy the equation sin (l/x)=-sin (1/x) . 

HINT: Write a program which will graph both functions 

on the same sheet and estimate the values of x 
where the graphs intersect. See the cover of 
this module. 



5. For the artistically inclined — Use different colored pens, 
the random generator, and your knowledge of analytic geom- 
etry to produce some examples of computer -genera ted art. 

(See Project Solo Newsletters No. 12, 13, 15, and 20 

for some ideas that you could combine.) 

6. Can you write a program that accepts the vertices of polygons 
as input, and then produces an iso-metric (3-D) drawing of the 
polygon as output? 
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APPENDIX A 



Assuming that you have a Hewlett-Packard Plotter connected to 
a teletype the following steps will prepare the plotter for plotting 

1. Turn teletype on (local for offline work? line for on- 
line work) . 

2. Push power button on the plotter ON. 

3. Place paper on plotting area. 

4 . Push chart hold button and wait until paper sticks to 
plotting area. 

5. Push lower left button and adjust lower left knobs to 
determine the (0,0) point. Be careful not to turn 
knobs past the point where the pen stops moving. 

6. Push upper right button and adjust upper right knobs 
to determine the (9999,9999) point. 



NOTE: Unle*6 you make the plotting anea tquane by putting the . 

uppe.n. flight point exactly a* Aan to the flight a 6 it i& 
above the lowen lefit point, youn gfiaph may be slightly 
elongated in the direction o\ one on. the othen axi * . 
ThJU i 6 no pnoblem unle*6 you want youn. cinder to be 
penfiectly fiound nathen than somewhat elliptical . 



I & you wi*h to ute the &ull 10 x IS papen and 
" cincula n." cinder, *et the pen hem 
but change all youn PRINT 6tatement6\ 

X i* multiplied by 0,666667 . 



ii 


I 1 

0 


±21 



-4 till get 
•i and hene, 
6o that 



PEER TEACHING 

with 

COMPUTERS 

The following programs were all written by students at Fox 
Chapel Area High School. These students wrote th^r programs with 
their fellow students 1 needs in mind. Each program is a tutorial 
aimed at helping younger learners master a new skill. This booklet 
is divided into three areas. 

The first area covers elementary arithmetic skills which include 
fractions, measurement conversion, volumetric conversion, subtrac- 
tion, multiplication, and addition. The second area, advanced math- 
ematics, contains tutorials on scientific notation, aige^ra and 
logarithms. The third area covers non-mathematical subjects. This 
includes a U.S. history questionnaire, French grammar & vocabulary, 
and French history & literature. 

Each program has a short introdugtion written by the student 
programmers followed by a sample run. Those '.uteres ted in listings 
can obtain them by contacting Project Solo 



Table of Contents 

Elementary Arithmetic — Pages 2-7 
Advanced Mathematics — — Pages 8-18 
French and U.S. History - Pages 19-24 



PROJECT SOLO / Compute Ji Science Ve.pt . / Untv, of PtttA bu/igk ( 7 52 1 3) 
Module.* #0205-02 7$ / Student author* fa om Fox Chapel High School. 



ARITHMETIC 



Tables (#0205) 

This is a program that was used with a special education 
class to ease the boredom of both teacher and student being 
drilled on multiplication facts. The students responded en- 
thusiastically to it. 

Woody Lauer, 12th Grade 



>RUN 

WHAT IS YOUR NAME 
7 WOODY LAUER 

WOODY LAUER# WHAT IS THE HUMBER OF THE TABLE YOU 
WISH TO CHECK 
?6 

WHAT DOES 5X6»? 

726 

YOU'RE WRONG# WOODY LAUERI 
TRY AGAIN* 

WHAT DOES 5 X 6*7 
730 

THAT'S RIGHT 
WHAT DOES 0 X 6*7 
712 

YOU'RE WRONG# WOODY LAUERI 
TRY AGAIN* 

WHAT DOES 0 X 6*7 
734 

YOU'RE WRONG# WOODY LAUERI 
THE CORRECT ANSWER IS 0* 

WHAT DOES 1 X 6*7 
70 

YOU'RE WRONG# WOODY LAUERI 
TRY AGAIN* 

WHAT DOES i X 6*7 
76 

GOOD 

WHAT DOES 6 X 6*7 

7 36 

GOOD 

WHAT POES 3 X 6*7 

718 

GOOD 

WHAT DOES 4 X 6*7 

724 

RIGHT 

WHAT DOES 2 X 6*7 
712 

THAT'S RIGHT 
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Pairs (#0206) 



This program can best be utilised by a third or fourth grad- 
er. It tests their ability to add and multiply . ^Theoomputer 
randomly selects a number between 1 and 90. The child must find 
either four different pairs of addends whose sum equals the num- 
ber or a pair of integers whose product yields the number. The 
student has the option of finding additional pairs of multipliers 



Ann Conner f 12th Grade 



>RUN 

WHAT IS YOUR FULL NAME? 

? ANN CONNER 

I AM THINKING OF TWO NUMBERS WHICH WHEN ADDED 
EQUALS 17. PLEASE TYPE TWO NUMBERS 

THAT YOU CAN THINK OF THAT EQUAL 17 
?1 

?16_ . . 

THAT IS CORRECT. 

* 0RE MUMBERS? 

? 2 
? 1 A 

THAT IS NOT CORRECT THE ANSWER YOU GET 
WHEN ADDING 2 TO 14 IS 16 

CAN YOU THINK OF TWO MORE NUMBERS? 

PLEASE TYPE THEM. 

? 2 

? 1 5 

THAT IS CORRECT. 

CAN YOU THINK OF TWO MORE NUMBERS? 

PLEASE TYPE THEM. • * 

? 3 ' 

? 16 

THAT IS NOT CORRECT THE ANSWER YOU GET 
WHEN ADDING 3 TO 16 IS 19 
NOW I AM THINKING OF TWO NUMBERS WHICH 
WHEN MULTIPLIED TOGETHER EQUAL 61 
| ? 61 

? 1 

THAT WAS VERY GOOD YOU ARE CORRECT. 

CAN YOU THINK OF TWO MORE NUMBERS WHICH WHEN 
MULTIPLIED TOGETHER EQUAL 61 PLEASE TYPE THEM. 
? YES 
? 2 

' ? 61 

THAT WAS NOT RIGHT* WHEN. YOU MULTIPLY 2 BY 
61 YOU GET 122 

CAN YOU THINK OF TWO MORE NUMBERS WHICH WHEN 

MULTIPLIED TOGETHER EQUAL 61 PLEASE TYPE THEM. 
? NO 



o 

ERIC 



•J 



A 

. T 
1 

i 










* 



4 . 



' C 



* 



Subtraction (#0207) 

This program is designed to enable students to practice 
subtraction. However, it is more of a challenge to students 
than just knowing how to subtract. The student is given the 
difference between two numbers and is asked to find both num- 
bers, He is only given five ohahces to reason both numbers 
correctly, so proficiency in substraction is necessary to get 
both numbers correct, 

Terry Wise, 12th Grade 



i • , - 

>RUN 

TYPE YOUR PULL NAME 
i?TERRY WISE 

I AM THINKING 07 TWO NUMBERS BETWEEN 40 AND 70 

THE DIFFERENCE BETWEEN THEM IS 20 

TYPE A NUMBER THAT YOU THINK IS THE LARGER NUMBER 

763 

'.NOW TYPE THE SMALLER NUMBER 
!?45 

65- 45* 20 BUT THOSE ARE NOT THE CORRECT 
NUMBERS 

TYPE A NUMBER THAT YOU THINK IS THE LARGER NUMBER 
?66 

NDW TYPE THE SMALLER NUMBER 
746 

66- 46* 20 BUT THOSE ARE NOT THE CORRECT 
NUMBERS 

ty pe A NUMBER THAT YOU -THINK I S THE ■ fa A BQE R-N U MB g R — - 

767 

,N3W TYPE THE SMALLER NUMBER 
'?47 

67- 47* 20 BUT THOSE ARE NOT THE CORRECT 
numbers 

TYPE A NUMBER THAT YOU THINK IS THE LARGER NUMBER 

764 

; N3W TYPE THE SMALLER NUMBER 
744 

64- 44* 20 BUT THOSE ARE NOT THE CORRECT 
NUMBERS 

.TYPE A NUMBER THAT YOU THINK IS THE LARGER NUMBER 

NOW TYPE THE SMALLER NUMBER 
7 43 

3RHAT# YOU GOT BOTH NUMBERS RIGHT 

IF YOU WOULD LIKE TO TRY ANOTHER PROBLEM# TYPE THE WORD 
YES 
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Addition of Fractions (#0208) 

This program was used in a general mathematics and a re- 
fresher arithmetic course to introduce the addition of fractions 
before teaching a technique for finding the least common denom- 
inator . 

Mark Pilant # 10th Grade 



o 
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>RUN 

HELLO# MY NAME IS CHARLIE* 

TYPE YOUR NAME 
7 KELLY 

TYPE THE NUMERATOR OF THE FIRST FRACTION 
?1 

TYPE THE DENOMINATOR OF THE FIRST FRACTION 
72 

TYPE THE NUMERATOR OF THE SECOND FRACTION 
?3 

TYPE THE DENOMINATOR OF THE SECOND FRACTION 
74 

TYPE THE DENOMINATOR OF YOUR ANSWER 
76 

INCORRECT* FIRST FIND A COMMON DENOMINATOR BY 
MULTIPLYING BOTH DENOMINATORS TOGETHER* 

TYPE YOUR ANSWER TO THIS MUCH OF THE PROBLEM* 

76 

INCORRECT* FIRST FIND A COMMON DENOMINATOR BY 
MULTIPLYING BOTH DENOMINATORS TOGETHER* 

TYPE YOUR ANSWER TO THIS MUCH OF THE PROBLEM* 
78 



MULTIPLY THE NUMERATOR AND DENOMINATOR OF THE FIRST FRACTION 
BY THE DENOMINATOR OF THE SECOND FRACTION 
TYPE THE NUMERATOR OF YOUR NEW FRACTION 
72 

INCORRECT 

MULTIPLY THE NUMERATOR AND DENOMINATOR OF THE FIRST FRACTION 
BY THE DENOMINATOR OF THE SECOND FRACTION 
TYPE THE NUMERATOR OF YOUR NEW FRACTION 
74 

TYPE THE DENOMINATOR OF YOUR NEW FRACTION* 



78 

MULTIPLY THE NUMERATOR AND THE DENOMINATOR OF SECOND 
FRACTION BY THE DENOMINATOR OF THE FIRST FRACTION 
TYPE THE NUMERATOR OF YOUR NEW FRACTION 
75 

INCORRECT 

MULTIPLY THE NUMERATOR AND THE DENOMINATOR OF SECOND 
FRACTION BY THE DENOMINATOR OF THE FIRST FRACTION 
TYPE THE NUMERATOR OF YOUR NEW FRACTION 



76 

TYPE THE DENOMINATOR OF YOUR NEW FRACTION 
78 

NOW ADD THE TWO NUMERATORS TOGETHER 
TYPE YOUR ANSWER 

75 as * 
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NOV ADD TKfi TWO NUMERATORS TOGETHER 
TYPE YOUR ANSWER 
? 10 

NOW YOU HAVE FIGURED THE NUMERATOR OF YOUR FINAL ANSWER 
WHICH IS 10 

THE DENOMINATOR OF YOUR FINAL ANSWER IS 8 

IF YOU. WANT TO TRY ANOTHER PROBLEM TYPE THE WORD YES 



Measurements (#0209) 

This is a program used in a refresher arithmetic class* 

It forces the student to reduce his answer to the simplest 
form* There are no tutorial features in it because these stu- 
dents have too much difficulty reading and interpreting instruc- 
tions • 

Don Salvin, 12th Grade 



>RUN 

THIS IS A PROGRAM TO ADD SEVERAL SETS OF DENOMINATE 
NUMBERS • 

HOW MANY SETS OF NUMBERS DO YOU WISH TO ADD? 

?2 

TYPE THE NUMBER OF YARDS IN THE FIRST SET OF MEASUREMENTS. 

?8 

TYPE THE NUMBER OF FEET IN THE FIRST SET OF MEASUREMENTS. 

?0 

TYPE THE NUMBER OF INCHES IN THE FIRST SET OF MEASUREMENTS. 
?21 

TYPE THE NUMBER OF YARDS IN THE SECOND SET OF MEASUREMENTS. 
?6 

TYPE THE NUMBER OF FEET IN THE SECOND SET OF MEASUREMENTS. 

?0 

TYPE THE NUMBER OF INCHES IN THE SECOND SET OF MEASUREMENTS. 
?17 

HOW MANY INCHES DID. YOU GET IN YOUR FINAL ANSWER? 

?2 

CORRECT 

HOW MANY FEET DID YOU GET IN YOUR FINAL ANSWER? 

?0 

O.K. 

HOW MANY YARDS DO YOU HAVE IN YOUR ANSWER? 

?15 

CONGRATULATION! 1 YOU DIDN'T EVEN MAKE ONE MISTAKE! 



o 
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Ghost (#0210) 



This program can be useful for classes which are learning 
their conversion factors of measurements because it challenges 
the student not to spellout the word GHOST • To get through the 
game without losing, he must get better than ten out of fifteen 
questions correct. A file is utilised as well as pass and repass 
statements. To compare the student's answer with the correct 
answer in the file, an ICO statement is used. Thus, by playing 
a simple game, the student is both having fun 'learning and re- 
viewing his conversion factors of various measurements. 

Chris Mellott, 11th Grade 



>RUN 

THIS PROGRAM IS DESIGNED TO TEST THE STUDENT ON THE 
CONVERSION FACTORS OF VARIOUS MEASUREMENTS SUCH AS 
LENGTH# WEIGHT# AND VOLUME. THIS TEST WILL BE IN 
THE FORM OF A GAME# WHICH IS CALLED GHOST. 

THE STUDENT WILL GET 15 CHANCES AND FOR EACH MIS- 
TAKE HE WILL GET ONE OF THE LETTERS IN THE WORD 
GHOST. 

IF THE STUDENT GETS THROUGH THE TEST WITHOUT SPELLING 
OUT THE WORD GHOST HE WINS! HOWEVER# AS SOON AS THE 
STUDENT SPELLS OUT THE WORD GHOST HE LOSES AND THE 
TEST IS OVER. 

HELLO# WHAT IS YOUR NAME* 

? CHRIS MELLOTT 

NICE TO MEET YOU# CHRIS MELLOTT. 

HOW MAN* FEET IN A MILE? 

? 5280 

HOW MANY SQUARE INCHES IN A SQUARE FOOT? 

? 134 
G 

HOW MANY CUBIC FEET IN A CUBIC YARD? 

? 27 

HOW MANY QUARTS IN TWO PECKS? 

? 15 
GH 

HOW MANY FLUID OUNCES IN TWO PINTS? 

? 30 
GHO 

HOW MANY INCHES IN HALF A FOOT? 

? 6 

HOW MANY OUNCES IN A POUND? 

? 12 
GKOS 

HOW MANY FEET IN A ROD? 

GHOST! YOU JUST LOST# SO GOOD-BYE. 
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ADVANCED MATH 



Exponents (#0211) 

This program is designed to check a students knowledge of 
exponents. It employs no logs but instead simulates the same 
type of thinking that a student, not knowing logs, would employ. 

It is designed to only compute problems which do not involve deci- 
mals and irrational numbers. These problems can easily be done 
in one's head, since the program is based on whole number powers 
of the numerator and denominator of each base, expo nent , and nuj* 
ber. There are two parts to the program. The first part asks tne 
student to supply a number and an exponent, it then computes tne 
base. The second part computes the number given the base and tne 

exponent • 



part 1 



Robert Hanna, 12th Grade 



>RUN 

TYPE YOUR NAME 
?BOB 

TYPE THE NUMBER OF PROBLEMS YOU WISH TO DO 
?2 

TYPE THE NUMERATOR OF THE NUMBER 
?64 

TYPE THE DENOMINATOR OF THE NUMBER 
?1 

TYPE THE NUMERATOR OF THE EXPONENT 
?2 

TYPE THE DENOMINATOR OF THE EXPONENT 
?1 

THE BASE IS 8/ 1 

NOW START TO DO YOUR NEXT PROBLEM 

TYPE THE NUMERATOR OF THE NUMBER 

?64 

TYPE THE DENOMINATOR OF THE NUMBER 
?1 

TYPE THE NUMERATOR OF THE EXPONENT 
?4 

TYPE THE DENOMINATOR OF THE EXPONENT 

THE PROBLEM CANNOT BE SOLVED IN THIS MANNER, IT MOST BE 
SOLVED BY THE USE OF THE LOGARITHMIC TABLES IN THE BACK OF 
YOUR TRIGONOMETRY BOOK 

FOLLOW LOGOUT PROCEDURES AND GOODBYE BOB 

part 2 

>RUN 

TYPE YOUR NAME 
?BOB 

TYPE THE NUMBER OF PROBLEMS YOU WISH TO DO 
?2 

TYPE THE NUMERATOR OF THE BASE 
?0 

TYPE THE DENOMINATOR OF THE BASE 



o 

ERIC 



19 



4 










?2 

TYPE THE NUMERATOR OF THE EXPONENT 
?1 

TYPE THE DENOMINATOR OF THE EXPONENT 
? 1 

THE NUMBER IS ZERO BECAUSE THE NUMERATOR OF 
THE BASE IS ZERO 

NOW START TO DO YOUR NEXT PROBLEM 
TYPE THE NUMERATOR OF THE BASE 
?-l 

TYPE THE DENOMINATOR OF THE BASE 
?1 

TYPE THE NUMERATOR OF THE EXPONENT 
?2 

TYPE THE DENOMINATOR OF THE EXPONENT 
?1 

THE NUMBER IS ONE BECAUSE NEGATIVE ONE TO AN EVEN POWER IS 
POSITIVE ONE 

FOLLOW LOGOUT PROCEDURES AND GOODBYE BOB 






i 

J 












m 
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Sum of Integers (#0212) 



This program is designed to help algebra students who ^ have 
trouble solving sum of integers problems. It has the flexiblity 
to check the sum of any number of integers and even tells the 
student if the problem is impossible. The program is a step by 
step tutorial that guides the student through to completion, A 
file of comments, that are randomly called, helps encourage the 
student. The program utilizes string functions to give the com- 
puter a stutter, 

David Rorison, 12th Grade 



>RUN 

WHAT IS YOUR FULL NAME? 

? DAVID BOR I SON . . 

8QV MANY CONSECUTIVE INTEGERS ARE THERE IN THIS PROBLEM? 
?! 

HA# HA* YOU CAN’T FOOL ME# THERE’S GOT TO BE 
$0RE THAN ONE INTEGER INPUT YOUR NUMBER AGAIN* 

?5 

WELL# DAVID# HOW ABOUT INPUTTING THE SUM OF THE 5 
CONSECUTIVE INTEGERS FOR THIS PROBLEM* 

?66 

BETTER INPUT YOUR SUM FOR YOUR 5 CONSECUTIVE 
INTEGERS AGAIN* THERE ARE NOT 5 CONSECUTIVE 
INTEGERS THAT ADD UP TO 66* 

?65 
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OK IT’S POSSIBLE THIS TIMS. THERE ARK 5 10 

CONSECUTIVE INTEGERS THAT ADO UP TO SS. 

WHAT IS THE VALUE YOU HAVE FOR THE FIRST CONSECUTIVE INTEGER? 
Til 

P-.'OD/ YOU GOT IT RIGHT* 

WHAT DO .YOU THINK IS THE VALUE FOR THE SECOND CONSECUTIVE 
INTEGER? 

712 

GOOD SHOW DDDDAVID RORISON REEF IT UP* 

DAVID > YOU'LL HAVE TQ EXCUSE MY TERRIBLE STUTTERING* 

IT’S UNFORTUNATE* BUT I HAVE. A SPEECH IMPEDIMENT* 

I OCCASIONALLY HAVE TROUBLE PRONOUNCING D'S* 

WHAT IS .THE VALUE YOU'VE GOTTEN FOR THE THIRD 
CONSECUTIVE INTEGER? 
f 13 

WAY TO GO. YOUR INTELLECT IS ASTOUNDING* 

WKAT IS YOUR VALUE POR YOUR 4TH CONSECUTIVE INTEGER* 

- 

YOU* RE A. REAL GENIUS* PROCEED AT A RAPID PACE* 

WHAT IS YOUR VALUE FOR THE FINAL INTEGER* 

T IS - 1 

YOU DID IT* ROW ABOUT DOING ANOTHER PROBLEM? 

TYPE YES IF YOU WANT TO TRY AGAIN AND NO IF YOU DON'T* 

? YES 

HOW MANY CONSECUTIVE INTEGERS ARE THERE IN THIS PROBLEM? 

?5 

WELL* DAVID# HOW ABOUT INPUTTING THE SUM OF THE 5 
CONSECUTIVE INTEGERS FOR THIS PROBLEM* 

?65 

WHAT IS THE VALUE YOU HAVE FOR THE FIRST CONSECUTIVE INTEGER? 
?11 

GOOD# YOU GOT IT RIGHT* 

WHAT DO. YOU THINK IS THE VALUE FOR THE SECOND CONSECUTIVE 
I RTEGER? 

?I2 

GOOD SHOW DDDDAVID RORISON KEEP IT UP* 

DAVID# YOU’LL HAVE TQ EXCUSE MY TERRIBLE STUTTERING* 

IT’S UNFORTUNATE# BUT X HAVE. A SPEECH IMPEDIMENT* 
l OCCASIONALLY HAVE TROUBLE PRONOUNCING D’S* 

WHAT IS THE VALUE YOU’VE GOTTEN FOE THE THIRD 
CONSECUTIVE INTEGER? 

? 13 . 

WAY TO GO* YOUR INTELLECT IS ASTOUNDING* 

WHAT IS YOUR VALUE FOR YOUR 4TH CONSECUTIVE INTEGER* 

?I4 

JUST WHAT I WAS LOOKING FOR* KEEP GOING* 

WHAT IS YOUR VALUE FOR THE FINAL INTEGER* 

?I4 

THAT’S NOT CORRECT* 

HOW COULD .THE 5TH . INTEGER* 14 IF THE 4TH 
INTEGER* 14* BETTER TRY AGAIN* 

WHAT IS YOUR FINAL INTEGER? 

?!5 

YEA«DAVXD YOU’RE MY HERO* YOU GOT ALL 5 
INTEGERS CORRECT* 

NOW# THAT YOU’VE ACCOMPLISHED THIS FEAT# HOW ABOUT 
TRYING ANOTHER PROBLEM? 

TYPE YES IF YOU WANT TO# NO IF YOU DON’T* 

f NO ’ 

WELL# I * M SORRY YOU DON* T WANT TO DO ANOTHER PROBLEM. 
mYBE YOU WILL IN THE FUTURE. 

BYE-BYE 
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Work (#0213) 



This program was designed for a second year algebra class to 
individually practice solving work problems. The program creates 
a file to keep track of the students who have been assigned pro- 
blems, the pertinent information about each student* s problem, and 
each student* s progress. The program allows each student to re- 
turn to the computer after he has solved the problem. If the 
student's answer is incorrect, it helps the student find his er- 
ror. 

Don Salvin, 12th Grade 
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>RUN 

THIS IS GEORGE HINKLED INK# MISS KAVANAGH'S FAVORITE COMPUTER# 

WHAT IS YOUR FULL NAME? 

7DASH GORDON 

CHARLIE IS THE NAME OF. MY FAVORITE ANT ♦ THE NAME 
OF MY FAVORITE BEE IS JIMMY* JIMMY AND CHARLIE BOTH CARRY 

SUGAR FOR A LIVING* ' 

. WHEN JIMMY IS WORKING HIS HARDEST# (AS HE 
ALWAYS DOES)# HE CAN CARRY ONE CUP OF SUGAR FOR A DIS- 
TANCE OF TEN FEET IN 16 DAYS* BUT CHARLIE IS LAZIER THAN 
JIMMY SO THAT IT TAKES CHARLIE 19 DAYS TO CARRY THE 
SAME AMOUNT OF SUGAR THE SAME DISTANCE* IF JIMMY AND CHARLIE 

WORK TQGETHER#HOW MANY DAYS DO YOU THINK IT WILL TAKE THEM \ 

TO DO THE JOB? ^ 



GOOD-BYE FOR NOW.WHEN YOU THINK THAT YOU HAVE THE CORRECT 
ANSWER# COME BACK AND RERUN THIS PROGRAM* 

FINISHED 
DONE!! DONE!! 

>RUN 

THIS IS GEORGE HINKLEDINK#MISS KAVANAGH'S FAVORITE COMPUTER* 

WHAT IS YOUR FULL NAME? 

? K 

THE FOLLOWING STUDENT! S) HAVE BEEN ASSIGNED A PROBLEM. 

STUDENT TIM FOR CH. TIM FOR JIM COR. ANS. 



GEEORGE POPY 5 2 1.43 

DASH GORDON 19 16 8*69 

NOBODY HAS COMPLETED THIS PROGRAM YET. 

FINISHED 
DONE!! DONE!! 
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>RUN 

THIS IS GEORGE HINKLEDI ^K#MISS KAVANAGH’S FAVORITE COMPUTER. 
WHAT IS YOUR FULL NAME? 

?DASH GORDON 

HOW MANY DAYS DO YOU THINK IT WILL TAKE FOR CHARLIE AND JIMMY 
WORKING TOGETHER TO CARRY THE SUGAR? 

?I .9 

AH HA! DASH GORDON 

YOU GOOFED. LET 9 S FIND OUT WHERE. 

IF JIMMY CAN CARRY ALL OF THE SUGAR IN 16 DAYS# THEN 
WHAT IS THE NUMERATOR OF THE FRACTION OF THE WORK THAT HE 
CAN DO IN ONE DAY? 

?1 

RIGHT 

WHAT IS THE DENOMINATOR OF THE FRACTION OF THE WORK THAT JIMMY 
CAN DO IN ONE DAY? 

? 16 
GOOD 

IF CHARLIE CAN DO ALL OF THE WORK ALONE IN 19 DAYS THEN 
WHAT IS THE NUMERATOR OF THE FRACTION OF THE SUGAR THAT HE 
CAN CARRY IN ONE DAY? 

?1 

CORRECT . 

WHAT IS THE DENOMINATOR OF THE FRACTION OF THE WORK THAT 
CHARLIE CAN DO IN ONE DAY? 

?20 

THE DENOMINATOR OF THE FRACTION OF THE WORK THAT CHARLIE CAN 
DO IN ONE DAY WILL ALWAYS EQUAL THE NUMBER OF DAYS THAT 
CHARLIE TAKES TO DO THE JOB ALONE OR 19 
WELL# DASH# THERE IS YOUR FIRST MISTAKE! 

NOW DIVIDE OUT THE FIRST FRACTION THAT YOU TOLD ME# COB THAT I 
TOLD YOU!) .WHAT DO YOU GET? 

70.0625 

FINE 

DIVIDE OUT THE SECOND FRACTION. WHAT DO YOU GET? 

?0.9 

ACH MEIN GOTT DASH! YOUR SECOND MISTAKE! I 

WHAT IS THE MATTER? IS YOUR MENTAL SLIDE RULE STUCK? 

1/ 19« 0.052631 579# BUT I WOULD HAVE ACCEPTED ANYTHING 
BETWEEN 2.631 578947E-03 AND 0.102631579 

NOW. ADD UP THE TWO DECIMALS THAT HAVE BEEN DIVIDED OUT. WHAT 
DO YOU GET? 

?0.09 

EXACTLY RIGHT! 

THIS DECIMAL REPRESENTS THE AMOUNT OF THE JOB THAT JIMMY 
AND CHARLIE CAN DO IN ONE DAY. THE RECIPROCAL OF THIS NUM- 
BER IS THE NUMBER OF DAYS THAT CHARLIE AND JIMMY WILL TAKE TO 
DO THE JOB TOGETHER. WHAT IS THE RECIPROCAL OF < 0.115131579) ? 
?9.5 

WELL# DASH# THERE IS YOUR THIRD MISTAKE!!! 

THE RECIPROCAL OF A NUMBER IS SIMPLY THAT NUMBER DIVIDED 
INTO 1. WHAT IS 0.115131579 INTO 1 ? 

?8.69 . 
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EXACTLY RIGHT! 

YOU'RE F INISHEDDASH GORDON* YOU HAVE HADE 

FINISHED 

DONE! I DONE!! 



3 MISTAKES IN ALL. 



THIS IS QEORSE HINKLEDINK*MISS KAVANAOH'S FAVORITE COMPUTER* 

VHAT IS YOUR FULL NAME? 

?K 

the FOLLOWING STUDENTCS) have been assigned a problem* 

STUDENT TIM FOR CH# TIM FOR JIM COR# ANS# 



GEEORGE POPY 5- 8 

DASH GORDON 19 16 

THE FOLLOWING STUDENTCS) HAVE COMPLETED THIS PROGRAM# 



STUDENT 



NUMBER OF ERROR 

ERRORS MADE LOCAT IONS 



1 #43 
8#69 



DASH GORDON 3 C4)#C6)#C8) 

FINISHED 

DONEI! DONE!! 
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Scientific Notation (#0214) 

This program allows students to either convert numbers from 
their regular form to scientific notation or into regular form 
from scientific notation. If the student makes a mistake, it helps 

the student discover his error. ^ . _ _ 

Steve Swanson, 12th Grade 



> RUN 

WHAT IS YOUR FULL NAME? 

? STEVE SWANSON 

HOW MANY PROBLEMS DO YOU WISH TO DO* STEVE? 

? 4 

WHICH WILL YOU BE INPUTTING FIRSTS A NUMBER IN 
•SCIENTIFIC NOTATION* OR A NUMBER IN 'REGULAR 
FORM*? 

7 SCI ENTI FI C NO TATI ON 

INPUT THE GIVEN NUMBER IN SCIENTIFIC NOTATION* 

? 4.35X10T4 

TYPE IN YOUR ANSWER IN REGULAR FORM* 

7 43500 

GOOD WORK* STEVE* THAT'S EXACTLY RIGHT* 

TRY ANOTHER PROBLEM* 

WHICH WILL YOU BE INPUTTING FIRST? A NUMBER IN 

'SCIENTIFIC NOTATION' OR A NUMBER IN 'REGULAR 
FORM'? 

? SCIENTIFIC NOT 

INPUT THE GIVEN NUMBER IN SCIENTIFIC NOTATION* 

? 4* 35X10 1 4 

TYPE IN YOUR ANSWER IN REGULAR FORM* 

? 4350 

SORRY* STEVE* BUT YOU MADE A MI STAKE* 

WHEN CONVERTING FROM SCIENTIFIC NOTATION 
TO REGULAR FORM* YOU MOVE THE DECIMAL POINT 
OF THE NUMBER PRECEDING THE MULTIPLICATION SIGN THE 
NUMBER OF PLACES INDICATED 3Y THE EXPONENT 
OF THE 10 (TO THE LEFT IF IT IS NEGATIVE* OR 

TO THE RIGHT IF IT IS POSITIVE) ADDING ZEROS AS NEEDED. 

IN WHICH DIRECTION WILL YOU MOVE THE DECIMAL POINT? 

? RI GHT 

SO WHAT IS 4*35X10t4 WRITTEN IN REGULAR FORM? 

? 43500 

GOOD WORK* STEVE* THAT'S EXACTLY RIGHT* 

TRY ANOTHER PROBLEM* 

WHICH WILL YOU BE INPUTTING FIRST? A NUMBER IN 
'SCIENTIFIC NOTATION' OR A NUMBER IN 'REGULAR 
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f jmn 

l SCIENTIFIC N* 

INPUT THE GIVEN NUMBER IN SCIENTIFIC NOTATION* 
?-4*35X10t0 

TYPE IN YOUR ANSWER IN REGULAR FORM* 

?-43* 5 



Ii\) WHICH DIRECTION WILL YOU MOVE THE DECIMAL POINT? 
? RIGHT 

THAT WAS REALLY AN UNFAIR QUESTION* 

SINCE THE EXPONENT WAS ZERO* YOU WILL NOT 

MOVE THE DECIMAL POINT AT ALL* 



SO WHAT IS -4*35X10:0 WRITTEN IN REGULAR FORM? 

? -435* 

THE CORRECT ANSWER I S-4* 35* 

SORRY* STEVE# BUT YOU MADE ANOTHER ERROR* 

LOOK AT THE ANSWER CAREFULLY TO SEE WHERE YOU WENT WRONG* 
TRY ANOTHER PROBLEM* 

WHICH WILL YOU BE INPUTTING FIRST: A NUMBER IN 
•SCIENTIFIC NOTATION’ OR A NUMBER IN 'REGULAR 
FORM'? 

? SCI ENTl FI C 

INPUT THE GIVEN NUMBER IN SCIENTIFIC NOTATION. 

?4*35X10t-l ^ „ 

TYPE IN YOUR ANSWER IN REGULAR FORM* 

? 4*35 



WHICH DIRECTION WILL YOU MOVE THE DECIMAL POINT? 
? RIGHT 



YOU WILL MOVE TO THE LEFT* 

SO WHAT IS 4*35X10t-l WRITTEN IN REGULAR FORM? 

GOOD 5 WORK. STEVE, THAT'S EXACTLY RI WT. 

THAT'S ALL FOR NOW* BYE* 
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FRENCH AND U.S. HISTORY 



Hangman (#0215) 

The versatility of this program is one of its most valuable 
features. Currently a German class uses it, but with suitable f es 
it can be modified to any subject. Presently, a revision is being 
written to allow a refresher arithmetic class to use it. The pro- 
gram is a good tutorial because it reveals clues to the student. 
Those who execute the program enjoy watching it fill in the 2 g 
of characters already identified and drawing the partially filled 
gal low. The usual rules for the game are followed. The program 
requires no programming knowledge to execute. 

Mark Pilant, 10th Grade 



>RVN 

TYPE YOUR FIRST NAME 



?MLL 

THIS IS A PROGRAM TO PLAY HANGMAN • , 

IF YOU THINK YOU KNOW THE WORD TYPE *1 KNOW* WHEN I ASK FOR THE LETTER. 
YOU CAN CHOOSE WORDS WITH 5 TO 7 LETTERS INCLUSIVE. 

TYPE THE NUMBER OF LETTERS YOU WOULD LIKE TO HAVE IN YOUR WORD. 



In RIGHT* I'M READY. I HAVE THE PERFECT WORD. YOU'LL NEVER GUESS IT. 

OH! BY THE WAY# I GUESS I*D BETTER TELL YOU NOW# YOU ONLY GET 10 GUESSES 



OR S E V E N MISTAKES. 

WHAT LETTER DO YOU CHOOSE. 



? A 

incorrect 

THAT'S YOUR FIRST MISTAKE# MLL 
YOU HAVE 9 TRIES LEFT. 

CLUE I A NOUN 






1 1 

0 i 

1 
1 
1 

1 

1 



WHAT LETTER DO YOU CHOOSE* 

?B 

THAT'S NOT RIGHT 

THAT'S YOUR SECOND MISTAKE* MLL 

YOU HAVE 8 TRIES LEFT. 

CLUES A DIE WORD 

o 
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WHAT LETTER DO YOU CHOOSE* 

?C 

INCORRECT 

THAT’S YOUR THIRD MISTAKE# MLL 
YOU HAVE 7 TRIES LEFT* 

CLUEt MINUS THE SUFFIX IT BECOMES A MASCULINE NOUN 




WHAT LETTER DO YOU CHOOSE* 

?D. 

WHY DID. YOU GIVE ME THE WRONG LETTER? 
THAT’S YOUR FOURTH MISTAKE# MLL 
YOU HAVE 6 TRIES LEFT* 

CLUES PLURAL FORMED BY ADDING NEN 



X 1 

0 1 

\! / 1 

X 

X 

X 

X 



WHAT LETTER DO YOU CHOOSE* 
?E 

GREAT 

THAT'S YOUR FIFTH TRY# MLL 
YOUR WORD LOOKS LIKE THIS 

E - - E - - - 



erIc 
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WHAT LETTER DO YOU CHOOSE* 

yOUMN'T CHOOSE MORE THAN ONE LETTER AT A TIME, MLL 
WHAT LETTER DO YOU CHOOSE* 



?F 

INCORRECT 

THAT’S YOUR FIFTH MISTAKE* MLL 
YOU HAVE 4 TRIES LEFT* 

CLUE I FIRST LETTER IS THE SAME AS THE WORD FOR 



FEVER IN GERMAN 



l i 

0 1 

\! / 1 

! 1 

I 
l 
I 



WHAT LETTER DO YOU CHOOSE* 

?I KNOW - _ 

WHAT DO YOU THINK THE WORD IS* MLL 

?ENKEL 

HA ! HA! HA! I TOLD YOU THAT YOU WOULDN’T GET IT. 
I SHALL BE MERCIFUL AND LET YOU CONTINUE. 

WHAT LETTER DO YOU CHOOSE* 

?I 

FIGHT 

1 HAT’S YOUR SEVENTH TRY* MLL 
YOUR WORD LOOKS LIKE THIS 

E - - E - X - 

WHAT LETTER DO YOU CHOOSE. 

7Z 

INCORRECT 

THAT’S YOUR SIXTH MISTAKE* MLL 
YOU HAVE 8 TRIES LEFT. 

CLUEt A MEMBER OF THE FAMILY 



1 

0 

\! / 
! 

/ 



1 

1 

1 

1 

1 

l 

1 



WHAT LETTER DO YOU CHOOSE. 

?I KNOW 

WHAT DO YOU THINK THE WORD IS* MLL 



7ENKELIN 

DARN IT* YOU GOT IT. 
YOU TO BE* MLL 
GOOD-BYE* MLL 



GUESS YOU’RE SMARTER 

. 29 



THAN I FIGURED 
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French Literature and History (#0216) 

This program has been designed to test students on French 
literature and history. The program uses four files. The first 
two store the questions and the correct answers respectively. 

The third contains phrases of encouragement in French that are 
randomly written at appropriate points of the tutorial. The fourth 
file stores eight extra questions and answers for those students 
who wish extra credit. This program, because it is in French, 
determines the sex of the student so the appropriate gender and 
adjective endings are used. In addition, the program keeps a tally 
of the problems missed, and at its conclusion gives the student 
the number of questions missed and then a statement regarding his 
(or her) performance. 



Dale Klopfer, 12th Grade 



> RUM 

VOICI UME PROGRAMME EM FRAMCAI S* MALHEUREUSEMEMT* CETTE MACHINE 
M'EST PAS EM FRAMCAI S* DOMC IL M 'Y AURA PAS D' ACCEMTS 0U 
D' AUTRES CHOSES FRAMCAI S* 

BONNE CHANCE!! 

COMMENT VOUS APPELE*- V/OUS? 

? MARIE DUPONT 

QUELLE PHRASE CELEBRE DAMS <<LA FARCE DE MAI THE PATHELI M>>VEUT DIRE 
<<REMTR0MS A MOTRE SUJET>>? 

? BE 

EX AC TEN ENT! ! 

QUEL ROI ETAIT <<SAIMT L0UIS>>? 

? LUtOUI S IX 
EXACTEMEMT CJRRECTE! ! 

QUEL POET DU MOYEN AGE A EU LE MAL DU PAYS? 

( SUGGESTIONS: CHARLES; L0UI SI AMA> 

? DU BELLAY 

MOM. TU AS TORT# MARIE* VEUX TU SAVOIR LA REPOMSE CORRECTF? 

TAPES A LA MACHIME QUI OU MOM 
? MO 

EMCORE UME FOIS* S'lL TE PLAIT. 

? MOM 

CA M'EST nmTEGAL# MARIE — * ■ - 

Q U * EST-CE QUI ETAIT LA SYMBJLE DE FRAMCOIS I? 

? UME SALAMAMDRE 
CE M'EST PAS MAL ! 

QUI ETAIT ALCOFRIBAS MASIER? 

? RABELAI S 

TU AS RAISON COMME D 'HABITUDE! 
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nnr ETAIT UN GRAND ERUDIT ET HUMAMI STE HOLLANDAI S QUI A F.CRI T 
<<L*EL,OGE DE LA FOLIE»? <C* ETAIT PENDANT LA RENAISSANCE) 

•> REMBRANDT 

TU AS TORT# iMARI E. VEUX TU SAVOIR LA REPOMSE CORRECTE? 

TAPE& A LA MACHINE OUI 00 NON 
?OUI 

qU'EST CE QUF. C' ETAIT LA DEVISE OFFICIELLE DE L* ARRAY F DE THELEMF.? 
7 ffAt t PF QLJ’UN VEUT 

MOM. TU AS TORT# MARI E. VEUX TU SAVOIR LA REPOMSE CORRECTE? 

TAPE2 A LA MACH I ME OUI OU MOM 
7 OUI 

LA REPOMSE EST FAI S CE QUE TU VOUDRAS 
QUI A ECRIT LA «DI SCOURS SUR LA METHODE»? 

? DESCARTStES 
TRES TRES BIEM! 

QUI ETAIT JEAM-BAPTI STE POQUELIM? 

UOL* TA I R R 

,MOM. TU AS TORT# MARI E. VEUX TU SAVOIR LA REPOMSE CORRECTE? 

TAPE2 A LA iMACHIME OUI OU MOM 
? OlJt 

LA REPOMSE EST -MO LI ERE 



OUI A DIT QUE LA POSITION DE L 'HOMME DAMS L* UNI VERS EST F.MTRE 
L 'IMFI MI.MEMT GRAMD ET L'IMFIMIMEMT PETIT? 

? RLAI SE PASCAL 
VRAI 

OUI A ECRIT <<LE Cl D»? 

? CORNEILLE 

F.XACTEMF.MT CORRECTE! ! 

QUI ETAIT LE CHEF DU REGME DE LA TERRF.IJR? 

? 4AHAT 

•MJM. TU AS TORT# MARIE. VEUX TU SAVOIR LA REPOMSE CORRECTE? 
TAP £4 A LA MACHIME OUI OU MOM 
? MO M 

CA M'EST DIEM EGAL# MARIE 



3 U* EST“CE TOE C’EST QU’UN AUTRE NON POUIi L’EGLISF. DE SftI NTE-GENEUI EVE 
DE SOUFFLOT? 

? MOTRE DAME DE PARIS ^ 

gjM. TU AS TORT# MARIE* VEUX TU SAVOIR LA RFPOMSE CORRECTE? 

TAPE4 A LA MACHIME OUI OU MOM 
? OUI 

LA REPOMSE EST PANTHEON 

QUI A DIT << APRES 40 1 J LE DELUGE>>? 

? LOUIS XV 

TU AS RAISO'M COMME D'HAAI TUDE! 

OUI A PROMO MCE CF.T1F PHRASF.t <<PARI S VAUT P I EM UMF. MASSF.>>? 

? FRANCOIS I 

•vlOM. TU AS TORT# <IARIE. VEUX TU SAVOIR LA RF.POMSC CORRECTE? 

TAP E4 A LA MACHINE OUI OU MOM 



? MOM 

CA ^1'F.ST PI EM EGAL> MARI F. 

DAMS <<LES ROMAN DE RENARD>> 5 
i CH AMTF.CLI M 

yj.jyj. TU AS TORT# MARIE. VEUX 
TAPF4 A LA MACHIME OUI OU MOM 



QUI F.TAIT LE TROMPEUR TROMPFF? 
TU SAVOIR LA REP34SE CORRECTE? 



? A t MO M 

CA •! * EST HI EM EGAL# MARI E 
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QUI ETAIT LE COMPOSI TEUR DES OPERAS ET DES BALLETS POUR LA COUR ROYALF 
PENDANT LA RENAISSANCE? 

? RAMEAU 
EXCELLENT! 

QU»EST~CE QUE C’ETAIT LA PERI ODE ENTRE LA MORT DE LOUIS XIV ET LE 
COMMENCEMENT DU REGNE PERSONNEL DU LOUIS XV? 

? LE t S CENT JOURS 

NON. TU AS TORT# MARIE. VEUX TU SAVOIR LA REPONSE CORRECTE? 

TAPEZ A LA MACHINE OUI OU NON 
? OUI 

LA REPONSE EST REGENCE 

QUELS STYLES SONT SUGGERES PAR LES STUCSI LE BOIS DOREJ DES CUPIDONS1 
ETC? 

? BAROQUE ET ROCCOCO 
CORRECTE! 

QUI ETA I T LA FEMME DE LOUIS XVI? 

? MARIE ANTOINETTE 
EXACTEMENT! ( 

VEUX-TU DU CREDIT SUPPLEMENTAI RE? (TAPEZ A LA MACHINE OUI OU NON) 

?NON 

ALORS* VOYONS TA NOTE# MARI E 

MOJNS 9 IL FAUT QUE TU CULTIVES TON JARDIN# 

MARIE DUPONT 

ADIEU# MARIE# MA BELLE AMI£!f 



French Grammar (#0217) 

This program was designed to review present subjective tense 
of regular and irregular French verbs. It uses any array and a 
simple data file to record the verb forms in the present tense and 
the correct responses in the subjective. At the beginning of the 
program, the instructions for running the program are given in 
French. 



Ann Fritts, 12th ^Grade 

COMMENT VOUS APPELEZ-VOUS? 

?ANN FRITTS 

BON JOUR# ANN* VOICI UN EXAMEN SUR LE SUBJONTIF DES VERBES 
FRANCAIS. VOICI LE PREMIER VERBS* NE FAUT PAS ECRIRE LE PRONOM 
OU LES ACCENTS * S I MPLEMENT LA FORME DU VERBE. BON CHANCE# ANN . 
JL JOUE QUELLE EST LA REPONSE? 

? JOUE 

* C f EST CORRECT! 

NOUS PORTONS QUELLE EST LA REPONSE? 

?PORTIONS 
C«EST CORRECT! 

UE REPONDS QUELLE EST LA REPONSE? 

?REPQNDE 
C*EST CORRECT! 

JLS ATTENPENT QUELLE EST LA REPONSE? 

?ATTRNDENT 
Q*EST CORRECT! 

TU FINIS QUELLE EST LA REPONSE? 

?FXNNISSES 

NON# LA REPONSE EST FINISSES. 

VOUS CHOISISSEZ QUELLE EST LA REPONSE? # O& 

?CHOISSIEZ 



NON, LA REPONSE EST CHOISISSIEZ. 
J’APPELLE QUELLE EST LA REPONSE? 
7APPELLE 
C’EST CORRECT! 

IL VA QUELLE EST LA REPONSE? 

?AILLE 

C’EST CORRECT! 

TU APERCOIS QUELLE EST LA REPONSE? 

7APERCOIVES 

C’EST CORRECT! 

J* ASS I EDS QUELLE EST LA REPONSE? 

? ASS EYE 
C * EST CORRECT! 

ILS ONT QUELLE EST LA REPONSE? 

?AIENT 

C *EST CORRECT! 

NOUS CONNAISSONS QUELLE EST LA REPONSE? 
7CONNAISSIONS 
C * EST CORRECT! 

VOTJS CROYEZ QUELLE EST LA REPONSE? 

7CROYIEZ 
C • EST CORRECT! 

TU DO IS QUELLE EST LA REPONSE? 

7DOIVES 

C • EST CORRECT! 

IL ECRIT QUELLE EST LA REPONSE? 

? ECRITE 

NON, LA REPONSE EST ECRIVE. 

J* ETEINS QUELLE EST LA REPONSE? 

?ETI t EIGNE 
C*EST CORRECT! 

VOTJS ETES QUELLE EST LA REPONSE? 

7SOYEZ 

C • EST CORRECT! 

NOUS FAISONS QUELLE EST LA REPONSE? 
?FAISIONAtS 

NON, LA REPONSE EST FASSIONS. 

ILS METTENT QUELLE EST LA REPONSE? 

7METTEMT 

C " EST CORRECT! 

JE PARS QUELLE EST LA REPONSE? 

7PARTE 

C • EST CORRECT! 

VOUS POUVEZ QUELLE EST LA REPONSE? 
?POtTJISSIEZ 
C *EST CORRECT! 

TU PRENDS QUELLE EST LA REPONSE? 

? PRENNES 
C *EST CORRECT! 

NOUS SAVONS QUELLE EST LA REPONSE? 

7SACH10NS 

C * EST CORRECT! 

IL VAUT QUELLE EST LA REPONSE? 

7VAILLE 
C’EST CORRECT! 

JE VIEWS QUELLE EST LA REPONSE? 

? VIENNE 
C * EST CORRECT! 

ILS VO I ENT QUELLE EST LA REPONSE? 

? VO I ENT 

C * EST CORRECT! 

TU VEUX QUELLE EST LA REPONSE? 

?VEUILLES 

C * EST CORRECT! 

AU REVOIR, ANN. Oo 



Presidents (#0218) 



This program allows a teacher to create a file of questions 
and answers in any area where quick identification is sought. A 
series of questions and their answers about U.S. Presidents has 
already been typed in for this demonstration. 



HELLO# I WOULD LIKE TO KNOW YOUR NAMECFIRST AND LAST)* 
• WHAT IS IT?ED 

I DON’T LIKE TO REPEAT MYSELF, BUT I GUESS I MUST* 

WHAT IS YOUR FULL NAME7ED SATLER 



THIS PROGRAM WILL TEST YOUR KNOWLEDGE OF THE PRESIDENTS 
| nir THE UNITED STATES .YOU WILL BE : ASKED SIX QUESTIONS 
ABOUT THE PRESIDENTS AND BE SCORED ACCORDINGLY. 

ARE YOU READY, ED?AE YOU 

? --PLEASE RESPOND AGAIN 
. ? ARE YOU 

??--PLEASE RESPOND AGAIN 
' ?OF COURSE 



0 KAY, LF"' US BEGIN. WHEN ANSWERING A QUESTION, 

MAKE St' ■: THAT YOUR SPELLING IS CORRECT. 

, FIRST QUESTION, ED. 

! WHO WAS THE FIRST PRESIDENT OF THE UNITED STATES? 

? HI S NAME WAS GEORGE WASHINGTON 

'• 3 J QM-J* 

NEXT QUESTION. 

WHTCM PRESIDENT WAS ASSASSINATED BY JOHN WILKES BOOTHE? 

? ABRAHAM LINCOLN 
GOOD 

. NEXT QUESTION. 

i WHO WAS PRESIDENT DURING THE START OF WORLD WAR 1? 

.? WQQDROW 

FD, YOU MUST INCLUDE THE CORRECT LAST NAME IN YOUR ANSWER. 
? ? --PLEASE RESPOND AGAIN 
? WOODROW WILSON 
q 'THAT’S RIGHT 





PRESIDENTS 



I RK next question 
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WHICH PRESIDENT NON THE DISPUTED ELECTION OF 1*7 6? 

? HARRISON 

TOO BAD,ED,YOUR ANSWER IS INCORRECT. NEXT QUESTION. 

WHO WAS ELECTED PRESIDENT IN 196* 

? NIXON 

CORRECT 

NEXT QUESTION. 

WHO WAS PRESIDENT DURING THE BEGINNING OF THE GREAT DEPRESSION? j 
? HUMPHREY 

TOO BAD, ED, YOUR ANSWER IS INCORRECT. QUESTIONING IS OVER. 

OUT OF THE SIX QUESTIONS, YOUR TOTAL NUMBER RIGHT IS A 
OR 66% CORRECT, WHICH IS FAIR. 

' ED SATLER,DO YOU WANT TO RUN THIS PROGRAM AGAIN? WHAT 

j ? ? --PLEASE RESPOND AGAIN 
' ? NOPE 
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Hide and Seek 




Space Wa>t 



The four games in this booklet were written and tested on a PDP-10, 
using release 17 BASIC. 

The games are: 

Hide and Seek (Project Solo module #0201) - page 1 
NIM (Project Solo module #0202) - page 6 

MODULO (Project Solo module #0203) - page II 

Space War (Project Scio module #0204) - page 15 



PROJECT SOLO / Compute, n Science dept . / Univ. of Pitt*bun.gk{1 521 3) 
Module* # 020 1 -4 / Je.fi Lede^en. [PS] 

(Hide & Seek and MODULO were originated oy students of mathematics 
teacher, Bud Valenti. ) 
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HIDE AND SEEK 



The following program is a game called "Hide and Seek". This 
game encourages students to become familiar with the Cartesian Co- 
ordinate system by asking them to find four players hidden at grid 
points on a ten by ten graph. Allowable grid points have the form 
(J,K) where J and K are integers between 0 and 9 inclusive. The 
student is given ten tries in which to find the player* s position. 
After each try, he is told how close his guess was to each player. 

At the end of the game the student can ask to see where the players 
he didn't find were hidden. If the student wants to play another 
game the players move to new hidden locations. 

Aft.er playing the game "in his head", the student should try 
to play the game with the aid of graph paper and a compass. A good 
student can find all the players in six or seven moves by "triangu- 
lation" , using an approach that is similar to some radio navigational 
systems (e.g. LORAN) . 

A sample run of the program is given below. This is followed 
by a flow chart which explains tne logic of the program. The num- 
bers on the flow chart correspond to the statement numbers in the 
program listing. This listing is given on page 4. This program 
was written in BASIC for a PDP-10. 



Sample RUN of /HIDE AND SEEK/ 

THIS IS THE GAME OF HIDE AND SEEK. 

THE OBJECT 0F THE GAME IS T0 FIND THE F0UR PLAYERS 
WH0 ARE HIDDEN 0N A 10 BY 10 GRID. 

H0MEBASE WILL BE THE P0SITI0N AT <0»0> AND ANY GUESS 
YOU MAKE SH0ULD CONTAIN TWO NUMBERS. THE FIRST GIVES 
THE UNIT DISTANCE RIGHT 0F THE H0MEBASE AND THE SECOND 
IS /HE UNIT DISTANCE ABOVE H0MEBASE. 

YOU WILL HAVE TEN ATTEMPTS T0 LOCATE THESE PLAYERS 
AND WILL BE TOLD HOW CLOSE YOUR GUESS IS 
TO EACH PLAYER. 

IF AFTER 10 TRIES YOU ARE UNABLE TO CARRY OUT THIS TASK 
YOU MAY CONTINUE TO BE 9 ITS BUT THE PLAYERS WILL 
BE PERMITTED TO MOVE TO NEW LOCATIONS. 



ARE YOU READY TO BEGIN? 
? YES 



TURN NUMBER 1 « WHAT IS YOUR GUESS? 

? 5*5 

YOUR DISTANCE FROM PLAYER 1 IS 3.1 UNIT<S). 

YOUR DISTANCE FROM PLAYER 2 IS 2*2 UN1T(S>. 

YOUR DISTANCE FROM PLAYER 3 IS 4*2 UNITCS). 

YOUR DISTANCE FROM PLAYER 4 IS 5.6 UNITCS>. 
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00 Y0U WANT T0 PLAY AGAIN? 
? YES 



TURN NUMBER 1 * GHAT IS Y0UR GUESS? 

? 5 # 5 

Y0UR DISTANCE FR0M PLAYER 1 IS 5*6 UNITCS)* 

Y0UR DISTANCE FR0M PLAYER 2 IS 5*8 UNITCS). 

Y0UR DISTANCE FR0M PLAYER 3 IS 4*4 UNITCS) • 

Y0UR DISTANCE PR0M PLAYER 4 IS 3*1 UNITCS)* 



TURN NUMBER 2 » WHAT IS Y0UR GUESS? 

? 8*0 

Y0UR DISTANCE PR0M PLAYER 1 IS 11*4 UNITCS)* 
Y0UR DISTANCE PR0M PLAYER 2 IS 11*3 UNITCS)* 
Y0UR DISTANCE FR0M PLAYER 3 IS 9 UNITCS)* 
Y0UR DISTANCE PR0M PLAYER 4 IS 8*2 UNITCS)* 



TURN NUMBER 3 * WHAT IS Y0UR GUESS? 

? 8# 9 

Y0UR DISTANCE FR0M PLAYER 1 IS 7 UNITCS)* 

Y0UR DISTANCE FR0M PLAYER 2 IS 8 UNITCS)* 

Y0UR DISTANCE FR0M PLAYER 3 IS 1 UNITCS)* 

Y0UR DISTANCE FR0M PLAYER 4 IS 2*2 UNITCS)* 



TURN NUMBER 4 * WHAT IS Y0UR GUESS? 

? 7*9 

Y0UR DISTANCE FR0M PLAYER 1 IS 6 UNITCS)* 
Y0UR DISTANCE FR0M PLAYER 2 IS 7 UNITCS)* 
Y0U HAVE F0UND PLAYER 3 

Y0UR DISTANCE FR0M PLAYER 4 IS 1*4 UNITCS)* 



TURN NUMBER S * WHAT IS Y0UR GUESS? 

? 6*8 

Y0UR DISTANCE FR0M PLAYER ! IS S UNITCS)* 
Y0UR DISTANCE FR0M PLAYER 2 IS 6 UNITCS). 
Y0U HAVE F0UND PLAYER 4 



TURN NUMBER 6 * WHAT IS Y0UR GUESS? 

? 0*8 

Y0UR DISTANCE FR0M PLAYER 1 IS 1*4 UNITCS). 
Y0U HAVE F0UND PLAYER 2 



TURN NUMBER 7 * WHAT IS Y0UR GUESS? 

? 1*9 

Y0U HAVE F0UND PLAYER 1 

Y0U HAVE F0UND ALL THE PLAYERS IN 7 TURNS! 



D0 Y0U WANT T0 PLAY AGAIN? 
? N0 

THEN PLEASE L0G0UT* 



o 
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Hide and Seek 




PRINT DISTANCE 




PRINT THAT 


OF THIS PLAYER 




THIS PLAYER 


FROM GUESS 




IS FOUND 


(390) 




(360) 




-^1 



o 
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sample LISTING of /HIDE AND SEEK/ 



4 



5 RANDOMIZE 

10 DIM P<4#2> 

20 PRINT "THIS IS THE GAME OF HIDE AND SEEK*" 

30 PRIMT 

40 PRINT "THE OBJECT 0F THE GAME IS T0 FIND THE FOUR PLAYERS " 

50 PRINT "WHO ARE HIDDEN 0N A 10 BY 10 GRID*" 

60 PRINT 

70 PRINT "H0MEBASE WILL BE THE POSITION AT <0»0> AND ANY GUESS " 

80 PRINT "YOU MAKE SHOULD CONTAIN TWO NUMBERS* THE FIRST GIVES'* 

90 PRINT "THE UNIT DISTANCE RIGHT OF THE HOMEBASE AND THE SECOND" 

100 PRINT "IS THE UNIT DISTANCE ABOVE HOMEBASE*" 

110 PRINT 

120 PRINT "YOU WILL HAVE TEN ATTEMPTS TO LOCATE THESE PLAYERS" 

130 PRINT "AND WILL BE TOLD HOW CLOSE YOUR GUESS IS" 

140 PRINT "TO EACH PLAYER." 

150 PRINT 

160 PRINT "IF AFTER 10 TRIES YOU ARE UNABLE TO CARRY OUT THIS TASK" 
*70 PRINT "YOU MAY CONTINUE TO BE 'IT'# BUT THE PLAYERS WILL" 

*80 PRINT "BE PERMITTED TO MOVE TO NEW LOCATIONS*" 

190 PRINT 
200 PRINT 

210 PRINT "ARE YOU READY TO BEGIN?" 

220 INPUT AS 

230 IF AS* "NO" GOTO 620 

240 GOSUB 1000 

250 LET T*0 

260 LET T*T«*1 

270 PRINT 

2gO PRINT 

290 PRINT "TURN NUMBER"! T!"# WHAT IS YOUR GUESS?" 

300 INPUT M*N 

310 FOR 1*1 TO 4 

320 IF P(I#1>*-1 GOTO 400 

330 IF PCI,t)«>M GOTO 380 

340 IF P(I*2X>N GOTO 380 

350 LET P<I*1)*-1 

360 PRINT "YOU HAVE FOUND PLAYER"! I 
370 GOTO 400 

380 LET D*SQR< CP<I#1)-M>*2 ♦ CP<I*2>-N> t2> 

390 PRINT "YOUR DISTANCE FROM PLAYER"! I! "IS"! INTCDO!0>/10! "UNITCS! •" 

400 NEXT I 

410 FOR J*1 TO 4 

420 IF P<J> 1)<>-1 GOTO 470 

430 NEXT J 

440 PRINT 

450 PRINT "YOU HAVE FOUND ALL THE PLAYERS IN "iTi" TURNS!" 

460 GOTO 580 

470 IF T< 10 GO TO 260 

480 PRINT 

490 PRINT "YOU DIDN’T FIND ALL THE PLAYERS IN TEN TRIES*" 

500 PRINT "DO YOU WANT TO KNOW WHERE THE PLAYERS YOU DIDN'T " 

510 PRINT "FIND WERE HIDDEN?" 

520 INPUT BS 

530 IF BS*"N0" GOTO 580 
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$40 FOR I»1 T0 4 

550 IF PCI#1>«~1 SOTO 570 

560 PRINT "PLAYER"ll!" HID AT <"f PCI# l >I"#"JP<I#8>I") 
570 NEXT I 
580 PRINT 

590 PRINT "DO YOU WANT TO PLAY AGAIN?" 

600 INPUT CS 

610 IF C$»"YES" SOTO 040 

680 PRINT "THEN PLEASE LOGOUT*" 

630 SOTO 9999 
1000 FOR J*1 TO 8 
1010 FOR l«l TO 4 
1080 PCI#J>»INTCRND*10> 

1030 NEXT I 
1040 NEXT J 
1050 RETURN 
9999 END 
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NIN 



To start a game of Nim, the computer asks the student to create 
a few stacks of coins. The computer does this by asking the student 
the number of stacks he wants and an upper limit for the size of all 
of the stacks. Then the computer generates the stacks, prints out 
the stack sizes, and asks the student who can go first. The compu- 
ter and student alternate turns. In a turn, a player must remove 
some coins from one non-empty stack. The player who empties the 
last stack wins. 

A winning strategy can be developed using binary arithmetic. 

All one does is to express the size of each stack in its binary repre- 
sentation and list these representations so that like powers of two 
are in the same column. For example, suppose we have 4 stacks with 
11 coins, 6 coins, 7 coins and 3 coins. 



STACK NO. 

1 

2 

3 

4 



DECIMAL 2**3 2**2 

11 1 0 
6 1 

7 1 

3 



2**1 

1 

1 

1 

1 



2**0 

1 

0 

1 

1 



One can see that in some columns there are an even number of 
ones (columns 2**2 and 2**1) and in other columns an odd number of 
ones (columns 2**3 and 2**0). At the close of a turn, a winning 
strategy demands that the player leaves an even number of ones in 
each column. 

In the above example, if one takes 9 coins from stack no. 1 
the stacks and their binary representations look like this: 



STACK NO. 
1 
2 

3 

4 



DECIMAL 

2 

6 

7 

3 



2**2 2**1 
1 

1 1 

1 1 

1 



2**0 

0 

0 

1 

1 



Notice that there are an even number of ones in each column. 



If you begin your turn with an even number of ones in each 
column, your chances of winning depend upon your opponent making a 
mistake. When the computer faces such a situation it will take 
one coin from the first non-empty stack. 

This game is a good way to practice converting numbers from 
base 10 to base 2. Binary arithmetic . is the arithmetic used in 
computers. A good understanding of binary arithmetic is necessary 
for your students if they wish to dig deeply into the workings of 
a computer. 
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Sample RUN of /NIM/ 



7 



THIS. IS THE GAME OF NIM. 

WE START THE GAME WITH A FEW STACKS OF COINS. A 
PLAYER MAY TAKE AS MANY COINS FROM ANY ONE STACK 
IN A TURN. WE ALTERNATELY TAKE TURNS. THE PLAYER 
WHO EMPTIES THE LAST PILE OF COINS WINS* 

BECAUSE I *M A GOOD SPORT# YOU CAN CHOSE THE NUMBER 
OF STACKSC2- 10) AND THE MAXIMUM NUMBER OF COINS IN 
A STACKC I • 1 5) • I’LL EVEN LET YOU CHOSE WHO GOES 
FIRST. Q 

OF COURSE# YOU MUST TAKE AWAY AT LEAST ONE COIN IN 
A TURN# AND YOU CAN’T LEAVE A PILE WITH A NEGATIVE 
NUMBER OF COINS. IF YOU MAKE THESE AND OTHER PLAY 
ING ERRORS I’LL LET YOU TAKE YOUR TURN OVER. 



HOW MANY STACKS DO YOU WANT? 

? 3 

WHAT IS THE MAXIMUM NUMBER OF COINS IN A STACK? 
? 6 

THE STACKS OF COINS NOW LOOK LIKE THIS! 

STACK 1 HAS 5 COINCS). 

STACK 2 HAS 2 COINCS). 

STACK 3 HAS 5 COINCS). 

CAN I GO FIRST? 

? YES 

I TAKE 2 COINCS) FROM STACK 2 . 

THE STACKS OF COINS NOW LOOK LIKE THIS! 

-STACK 1 HAS 5 COINCS). 

STACK 3 HAS 5 COINCS). 

FROM WHICH STACK DO YOU WISH TO REMOVE COINS? 

? 1 

HOW MANY COINS? 

? 3 

I TAKE 3 COINCS) FROM STACK 3 . 

THE STACKS OF COINS NOW LOOK LIKE THIS! 

STACK 1 HAS 2 COINCS). 

STACK 3 HAS 2 COINCS). 

FROM WHICH STACK 'DO YOU WISH TO REMOVE COINS? 

? 1 

HOW MANY COINS? 

? 2 

I TAKE 2 COINCS) FROM STACK 3 • 

I WIN. WANT TO FLAY AGAIN? 

? NO 

PLEASE LOGOUT. 
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NIM 
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YES 




o 

ERIC 



44 



Sample LISTING of /NIM/ 



9 




5 RANDOMIZE 

10 PRINT "THIS IS THE GAME OF NIM*" 

15 PRINT 

20 PRINT "WE START THE GAME WITH A FEW STACKS OF COINS* A” 

25 PRINT "PLAYER MAY TAKE AS MANY COINS FROM ANY ONE STACK" 

30 PRINT "IN A TURN* WE ALTERNATELY TAKE TURNS* THE PLAYER" 
35 PRINT "WHO EMPTIES THE LAST PILE OF COINS WINS*" 

AO PRINT 

45 PRINT "BECAUSE I *M A GOOD SPORT# YOU CAN CHOSE THE NUMBER" 
50 PRINT "OF STACKSC2-10) AND THE MAXIMUM NUMBER OF COINS IN" 
55 PRINT "A STACK* 1-15). I'LL EVEN LET YOU CHCBE WHO GOES" 

60 PRINT "FIRST*" 

65 PRINT 

70 PRINT "OF COURSE# YOU MUST TAKE AWAY AT LEAST ONE COIN IN" 
75 PRINT "A TURN# AND YOU CAN'T LEAVE A PILE WITH A NEGATIVE" 
80 PRINT "NUMBER OF COINS* IF YOU MAKE THESE AND OTHER PLAY-" 
#5 PRINT "ING ERRORS I'LL LET YOU TAKE YOUR TURN OVER*" 

90 PRINT 
95 PRINT 

100 PRINT"HQW MANY STACKS DO YOU WANT?" 

110 INPUT K 

111 IF K>10 GOTO 100 

112 IF K<2 G0T0100 

120 PRINT "WHAT IS THE MAXIMUM NUMBER OF COINS IN A STACK?" 

130 INPUT M 

131 IF M> 1 5 GOTO 120 

132 IF M< 1 GOTO 120 
135 FOR 1*1 TO K 

140 LET XC I >»lNTCRND*M+»999) 



145 NEXT I 

150 GO SUB 1000 

160 PRINT "CAN I GO FIRST?" 

170 INPUT A$ 

180 IF A$*"YES" GOTO 250 

181 GOTO 190 

185 PRINT "TRY AGAIN*" 

190 PRINT "FROM WHICH STACK DO YOU WISH TO REMOVE COINS?" 

200 INPUT I 

201 IF I >K GOTO 185 

202 IF I < 1 GOTO 185 

210 PRINT "HOW MANY COINS?" 

220 INPUT N 

225 IF N< 1 GOTO 185 

230 IF XC I > -N<0 GOTO 185 

240 LET X C I > *X C I >«N 

241 FOR 1*1 TO K 

242 IF XC I ) <>0 GOTO 250 

243 NEXT I 

244 PRINT "YOU WIN. WANT TO PLAY AGAIN?" 

245 GOTO 510 

250 FOR 1*1 TO K 
260 LET T *XCI) 

270 FOR J*1 TO 4 

280 LET KCI# J)=T-INTCT/2>*2 

290 LET T=lNTCT/2> 



300 NEXT J 
310 NEXT I 
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320 FOR J*1 TO 4 

330 LET CCJ>*0 

340 FOR I® 1 TO K 

350 LET CC J) «C( J) +KC I .* J) 

360 NEXT I 

370 NEXT J 

375 LET B*0 

380 FOR J*1 TO 4 

390 LET CC J)-INTCCC J>/2>*2 

395 IF CCJ>*0 GOTO 400 

398 LET B» 1 

400 NEXT J 

402 IF B>0 GOTO 415 

403 FOR 1*1 TO K 

404 IF X<I)>0 GOTO 406 

405 NEXT I 

406 LET B»1 
410 GOTO 480 
415 FOR J*1 TO 4 

420 IF CC5-J>»1 GOTO 430 

425 NEXT J 

430 LET J*5-«J 

432 FOR 1*1 TO K 

435 IF KC I # J) * 1 GOTO 459 

440 NEXT I 

459 LET B*0 

461 FOR J*1 TO 4 

463 IF CC J>*0 GOTO 471 

465 IF KCI#J>*0 GOTO 469 

466 LET B«B+2**C J-l> 

467 GOTO 471 

469 LET B*B-2**CJ-1> 

471 NEXT J 

480 LET XCI>*XCI>-8 

485- PRINT "I TAKE” *B $ **CQ I N C S > FROM STACK**; I ;**•" 

490 FOR 1*1 TO K 
495 IF XCI>>0 GOTO 535 
500 NEXT I 

505 PRINT **I WIN* WANT TO PLAY AGAIN?* 1 
510 INPUT B$ 

520 IF B$*”YES M GOTO 100 
525 PRINT **PLEASE LOGOUT*** 

530 GOTO 9999 
535 GOSUB 1000 
540 GOTO 190 

1000 PRINT "THE STACKS OF COINS NOW LOOK LIKE THISs" 

1010 FOR 1*1 TO K 

1015 IF X C I ) *0 GOTO 1030 

1020 PRINT ** STACK M ;l; < *HAS M ;X<I); M COIN<S)." 

1030 NEXT I 
1040 PRINT 
1050 RETURN 
9999 END 
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MODULO 
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At the start of this game, the computer asks the studrnt to 
create an imaginary pile of coins. Then the computer requests the 
student to set the maximum number of coins a player can remove in 
a turn. Finally the student chooses who takes the first turn. Dur- 
ing the remainder of the game, the players alternate turns. In his 
turn, a player must remove at least one coin from the pile, but no 
more than the maximum number of coins set at the beginning of play. 

The player forced to take the last coin loses. 

The strategy of this game is based on modulo arithmetic. If 
the maximum number of coins a player may remove in a turn is M, then 
to gain a winning position a player at the end of his turn must 
leave a stack of 1 modulo (M+l) coins. (If you divide the number 
of coins in the stack by M+l, the remainder from this division should 
be one.) If at the beginning of its turn the computer is faced with 1 
modulo (M+l) coins in the stack? it will take only one coin thus al- 
lowing its human opponent a maximum number of turns to error. 



Sample RUN of /MODULO/ 



THIS IS THE GAME 0F MODULO. 

WE START THE GAME WITH AN IMAGINARY STACK 0F C0INS AND 
THEN ALTERNATELY REMOVE SOME COINS FROM THE STACK. 

THE PLAYER FORCED TO TAKE THE LAST COIN LOSES. 



I WILL LET YOU CHOOSE THE ORIGINAL SIZE OF THE STACK AND 
THE MAXIMUM NUMBER OF COINo A PLAYER MAY REMOVE IN A 
TURN. 



YOU FORFEIT: 

1. IF YOU TAKE MORE COINS THAN THE MAXIMUM 
NUMBER ALLOWED IN A TURN. 

2. IF YOU TAKE LESS THAN ONE COIN AWAY IN A TURN. 

3. IF YOU LEAVE THE STACK WITH A NEGATIVE NUMBER 
OF COINS . 

4. IF THE DIFFERENCE BETWEEN THE ORIGINAL STACK 
AND THE MAXIMUM NUMBER OF COINS THAT CAN BE 
REMOVED BY A PLAfER IN A TURN IS LESS THAN TWO. 

5. IF THE MAXIMUM NUMBER OF COINS A PLAYER MAY 
REMOVE IN A TURN IS LESS THAN ONE. 

HOW MANY COINS DO YOU WANT TO PUT IN THE STACK? 

? 25 

UP TO HOW MANY COINS CAN A PLAYER REMOVE IN A TURN? 

? 6 

CAN I GO FIRST? 

? YES 





I TAKE 3 C0INCS) • THAT LEAVES 22 COINCS) LE*T IN THE 
STACK. Y0UR TURN. 

H0W MANY C0INS D0 Y0U WISH T0 REM0VE FR0M THE STACK? 
? 4 

THAT LEAVES A PILE 0F 18 C0IN<S>. 

I TAKE 3 COINCS) • THAT LEAVES 15 C0INCS) LEFT IN THE 
STACK. Y0UR TURN. 

H0W MANY C0INS D0 Y0U WISH T0 REM0VE FR0M THE STACK? 
? 5 

THAT LEAVES A PILE 0F 10 COINCS)* 

I TAKE 2 C0INC S) * THAT LEAVES 8 C0IN<S> LEFT IN THE 
STACK. YOUR TURN. 

H0W MANY C0INS D0 YOU WISH T0 REMOVE FR0M THE STACK? 
? 6 

THAT LEAVES A PILE 0F 2. COINCS). 

I TAKE l COINCS). THAT LEAVES 1 C0INCS) LEFT IN THE 
STACK. Y0UR TURN. 

HOW MANY COINS D0 Y0U WISH T0 REM0VE FR0M THE STACK? 
? 1 

Y0U LOSE • WANT T0 PLAY AGAIN? 

? YES 

HOW MANY COINS DO YOU WANT TO PUT IN THE STACK? 

? 6 

UP TO HOW MANY COINS CAN A PLAYER REMOVE IN A TURN? 

? 3 

CAN I GO FIRST? 

? NO 

HOW MANY COINS DO YOU WISH TO REMOVE FROM THE STACK? 
? 1 

THAT LEAVES A PILE OF 5 C0IN<S). 

I TAKE 1 COINCS). THAT LEAVES 4 COINCS) LEFT IN THE 
STACK. YOUR TURN. 

HOW MANY COINS DO YOU WISH TO REMOVE FROM THE STACK? 
? 3 

THAT LEAVES A PILE OF 1 COINCS). 

I LOSE. WANT TO PLAY AGAIN? 

?NQ 

THEN PLEASE LOGOUT 




48 



MODULO 



13 




( 560 ) 




20 PRINT 
30 PRINT 
40 PRINT 
50 PRINT 
60 PRINT 



•’THIS IS THE GAME 0F MODULO. " (LISTING OF MODULO) 

•WE START THE GAME WITH AN IMAGINARY STACK 0F C0INS AND" 
"THEN ALTERNATELY REMOVE S0ME C0INS FR0M THE STACK* ** 

"THE PLAYER FORCED T0 TAKE THE LAST COIN LOSES." 



70 PRINT 

80 PRINT "I WILL LET YOU CHOOSE THE ORIGINAL SIZE OF THE STACK AND" 
90 PRINT "THE MAXIMUM NUMBER OF COINS A PLAYER MAY REMOVE IN A" 

100 PRINT "TURN." 



110 PRINT 
120 PRINT 
130 PRINT 
140 PRINT 
150 PRINT 

160 PRINT 
17 0 PRINT 
180 PRINT 
190 PRINT 
200 PRINT 
210 PRINT 
215 PRINT 
220 PRINT 
230 PRINT 



"YOU FORFEIT*" 

!• IP* YOU TAKE MORE COINS THAN THE MAXIMUM" 

" NUMBER ALLOWED IN A TURN." 

" 2. IF YOU TAKE LESS THAN ONE COIN AWAY IN A TURN. 

3 * YOU LEAVE THE STACK WITH A NEGATIVE NUMBER" 
" OF COINS ." 

4* IP* the DIFFERENCE BETWEEN THE ORIGINAL STACK" 

" AND THE MAXIMUM NUMBER OF COINS THAT CAN BE " 

REMOVED BY A PLAYER JN A TURN IS LESS THAN TWO 
" 5. IF THE MAXIMUM NUMBER OF COINS A PLAYER MAY" 

" REMOVE IN A TURN IS LESS THAN ONE." 



240 PRINT "HOW MANY COINS DO YOU WANT TO PUT IN THE STACK?" 
250 INPUT N 
260 PRINT 



270 PRINT "UP TO HOW MANY COINS CAN A PLAYER REMOVE IN A TURN?" 
280 INPUT M 



290 IF M <=0 GOTO 580 
300 PRINT 

330 IF N-M< 2 GOTO 580 
340 PRINT "CAN I GO FIRST?" 
350 INPUT A$ 

360 IF A$= "YES" GOTO 450 
365 PRINT 



370 PRINT "HOW MANY COINS DO YOU WISH TO REMOVE FROM THE STACK?" 

380 INPUT S 

390 IF S<=0 GOTO 580 
400 IF S>M GOTO 580 
410 LET N=N-S 
420 IF N<0 GOTO 580 
430 IF N=0 GOTO 560 

440 PRINT ‘THAT LEAVES A PILE OF"; Nl "COINCS) . " 

450 PRINT 

455 LET S=M-INT<N/CM+ 1 ) J * (h+ 1 ) - 1 

460 IF S>0 GOTO 480 

465 IF S— 0 GOTO 475 

470 L^T S=M 

47 2 GOTO 480 

47 5 LET S= 1 

480 LET N=N-S 

490 IF N=0 GOTO 540 

500 PRINT "I TAKE"; SJ "C0INCS). THAT LEAVES*'; N; "CGI N< S) LEFT IN THE " 
510 *■*•*! NT "STACK. YOUR TURN." 

PRINT 



53 u -V-TO 
540 P*- 7"T 
550 GOTO 
560 "~TVT 
570 M^lO 



37 0 

"7 LOSE. WANT TO PLAY AGAIN?" 

59 0 

**Y~U LOSE . WANT TO PLAY AGAIN ? 
59 0 



M 



580 PRINT "YOU FORFEIT • WANT TO PLAY AGAIN?" 



590 INPUT B$ 

600 TF B$="YES" GOTO *30 
700 PRINT "THEN PLEASE LOG OUT. 
.999 END 
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The following game is called "Space War". Space War cnallenges 
a student to visualize spatial positions in polar coordinates. The 
object is to detonate an explosive within a certain distance of a germ 
laden ship. This ship is orbiting a planet at a constant altitude 
and orbital rate (degrees/hour). The location of the ship is hid- 
den by a device that renders the ship invisible, but after each 
bomb the student is told how close to the enemy ship his bomb ex- 
ploded, The challenge to the student is to try to hit an invis- 
ible moving target with a limited number of shots. 

You can explain to your students that the planet can be re- 
placed by a point at its center (called the origin), then the ship’s 
position can be given as a distance from the origin and an angle 
between its position and the eastern edge of the planet. 



direction 
of orbit 




E 



The distance of the bomb from the ship is computed using the 
law of cosines (see line 430 of the program listing). The law of 
cosines states 



D=^R**'S+D1**2+R*D1*C0S (A-Al) 




E 



where D is the distance between the ship and the bomb, R is the al- 
titude of the ship, D1 is the altitude of the bomb, and A-Al is the 
angle between the ship and the bomb. Ask your students where the 
correction is for A-A1>180 degrees. (lines 410 and 420) 



Practice Off-Line Problem ; 

Aircraft appear on radar 
as blips of the form "= M . 

What is the distance between 
the TWA and United aircraft 
shown on the radar screen on 
the right. 



360 



270 



090 




225 



Space War 
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Sample RUN of /SPACE WAR/ 



SOMEWHERE ABOVE YOUR PLANET IS A ROMULAN SHIP* 

THIS SHIP IS IN A CONSTANT POLAR ORBIT* IT’S 
DISTANCE FROM THE CENTER OF YOUR PLANET IS FROM 
10/000 TO 30/000 MILES AND AT IT S PRESENT VELOCITY CAN 
CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HOURS* 

UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE SO 
YOU ARE UNABLE TO SEE THEM/ BUT WITH A SPECIAL 
INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR 
PHOTON BOMB EXPLODED. YOU HAVE SEVEN HOURS UNTIL THEY 
HAVE BUILT UP SUFFICIENT POWER IN-ORDER TO ESCAPE 
YOUR PLANET’S GRAVITY. 

YOUR PLANET HAS ENOUGH POWER TO FIRE ONE BOMB AN HOUR. 

AT THE BEGINNING OF EACH HOUR YOU WILL BE ASKED TO GIVE AM 
ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS OF 
100 MILES (BETWEEN 100 AND 300)/ AFTER WHICH YOUR BOMB’S 
DISTANCE FROM THE ENEMY SHIP WILL BE GIVEN. 

AN EXPLOSION WITHIN 5/000 MILES OF THE ROMULAN SHIP 
WILL DESTROY IT® 

BELOW IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT. 



90 

t 

0000000000000 
0000000000000000000 
000000 000000 
00000 00000 
00000 XXXXXXXXXXX 00000 



180<== 



00000 

0000 

0000 

0000 

00000 

0000 

0000 

0000 

00000 



XXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXX 



0000 

0000 

0000 

0000 

00000 

0000 

GOOO 

0000 

oooco 



==>0 



00000 XXXXXXXXXXXXX 00000 
00000 00000 
000000 000000 
00000000000000000000 
000000000000000 
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X - YOUR PLANET 

0 - THE ORBIT OF THE ROMULAN SHIP 

ON THE ABOVE DIAGRAM# THE ROMULAN SHIP IS CIRCLING 
COUNTERCLOCKWISE AROUND YOUR PLANET* DON'T FORGET 
WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE 
AND ORBITAL RATE WILL REMAIN CONSTANT* 

GOOD LUCK. THE FEDERATION IS COUNTING ON YOU* 



HOUR 1 > AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 

? 0 

HOW FAR OUT DO YOU WISH TO DETONATE IT? 

? 200 



YOUR PHOTON BOMB EXPLODED 357*237 *10t2 MILES FROM THE 
THE ROMULAN SHIP 



HOUR 2 » AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 

? 180 

.HOW FAR OUT DO YOU WISH TO DETONATE IT? 

? 200 



YOUR PHOTON BOMB EXPLODED 267*336 *10*2 MILES FROM THE 
THE ROMULAN SHIP 



HOUR 3 # AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 

? 180 

HOW FAR OUT DO YOU WISH TO DETONATE IT? 

? 200 



YQUR PHOTON BOMB EXPLODED 295*315 *10»2 MILES FROM THE 
THE ROMULAN SHIP 



HOUR A » AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 

7 250 

HOW. FAR HUT DO YOU WISH TO DETONATE IT? 

? 200 
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YOUR PHOTON BOMB EXPLODED 103*558 *10*2 MILES FROM THE 
WE ROMULAN SHIP 



HOUR 5 * AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 

? 250 

HOW FAR OUT DO YOU WISH TO DETONATE IT? 

? 200 



YOUR PHOTON BOMB EXPLODED 138*378 *10*2 MILES FROM THE 
WE ROMULAN SHIP 



HOUR 6 * AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 

? 300 

HOW FAR OUT DO YOU WISH TO DETONATE IT? 

? 200 



YOUR PHOTON BOMB EXPLODED 30. 1494 *10t2 MILES FROM THE 
WE ROMULAN SHIP 

YOU HAVE SUCCESSFULLY COMPLETED YOUR MISSION* 

ANOTHER ROMULAN SHIP HAS GONE INTO ORBIT* 

DO YOU WISH TO TRY TO DESTROY IT? 

? NO 

PLEASE LOGOUT 



Sample LISTING of /SPACE WAR/ 



5 RANDOM I 
10 PRINT 
15 PRINT 
20 PRINT 
25 PRINT 

30 PRINT 

31 PRINT 
35 PRINT 
40 PRINT 
45 PRINT 
50 PRINT 
55 PRINT 
AO PRINT 
65 PRINT 
70 PRINT 
75 PRINT 
80 PRINT 



ZF. 

"SOMEWHERE ABOVE YOUR PLANET IS A ROMULAN SHIP." 

"THIS SHIP IS IN A CONSTANT POLAR ORBIT* IT S" 

"DISTANCE FROM THE CENTER OF YOUR PLANET IS FROM" 

"10*000 TO 30*000 MILES AND AT IT'S PRESENT VELOCITY CAN" 
"CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HOURS." 

"UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE SO" 

"YOU ARE UNABLE TO SEE THEM* BUT WITH A SPECIAL " 
"INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR" 

"PHOTON BOMB EXPLODED. YOU HAVE SEVEN HOURS UNTIL THE'.Y" 
"HAVE BUILT UP SUFFICIENT POWER IN ORDER TO ESCAPE 
"YOUR PLANET'S GRAVITY." 

"YOUR PLANET HAS ENOUGH POWER TO FIRE ONE BOMB AN HOUR*" 
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85 PRINT " 
90 PRINT " 
95 PRINT M 
100 PRINT 
105 PRINT 

110 PRINT 

111 PRINT 
ll/l PRINT 

115 PRINT 

116 PRINT 

117 PRINT 

168 PRINT 

169 PRINT 

170 PRINT 

171 PRINT 

172 PRINT 

173 PRINT 
17/1 PRINT 

175 PRINT 

176 PRINT 

177 PRINT 

178 PRINT 

179 PRINT 

180 PRINT 

181 PRINT 

182 PRINT 

183 PRINT 
18/1 PRINT 

185 PRINT 

186 PRINT 

187 PRINT 

188 PRINT 

189 PRINT 

190 PRINT 

191 PRINT 

192 PRINT 

195 PRINT 

196 PRINT 

197 PRINT 

198 PRINT 

199 PRINT 

200 PRINT 

201 PRINT 
20 3 PR. I NT 
20/1 PRINT 



AT THE BEGINNING UF EACH HOUR YOU WILL BE ASKED TO GI VE AN 
ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS OF" 

100 MILES (BETWEEN 100 AND 300), AFTERWHICH YOUR BOMB'S” 
••DISTANCE FROM .THE ENEMY SHIP WILL BE GIVEN." 

"AN EXPLOSION WITHIN 5,000 MILES OF THE ROMULAN SHIP" 

"WILL DESTROY IT." 

"BELOW IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT." 



1 1 90" 

M »*' 

M 0000000000000" 

M 0000000000000000000" 

.• 000000 000000 " 

•• 00000 00000" 

•• 00000 XXXXXXXXXXX 00000" 

M 00000 XXXXXXXXXXXXXXX 0000" 

*• 0000 XXXXXXXXXXXXXXXXX 0000" 

M 0000 XXXXXXXXXXXXXXXXXXX 0000" 

M 0000 XXXXXXXXXXXXXXXXXXXXX 0000" 

••180<=* 00000 XXXXXXXXXXXXXXXXXXXXX 00000 ««>0" 

•• 0000 XXXXXXXXXXXXXXXXXXXXX 0000" 

•• 0000 XXXXXXXXXXXXXXXXXXX 0000" 

•• 0000 XXXXXXXXXXXXXXXXX 0000" 

•• 00000 XXXXXXXXXXXXXXX 00000" 

•• 00000 XXXXXXXXXXXXX 00000" 

•• 00000 00000 " 

M 000000 000000" 

.• 00000000000000000000 " 

.. 000000000000000 " 

M !•• 

•• 270" 



"X - YOUR PLANET" 

"0 - THE ORBIT OF THE ROMULAN SHIP" 

"ON THE ABOVE DIAGRAM, THE ROMULAN SHIP IS CIRCLING" 
"COUNTERCLOCKWISE AROUND YOUR PLANET. DON'T FORGET" 
"WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE" 
"AND ORBITAL RATE WILL REMAIN CONSTANT." 

"GOOD LUCK. THE FEDERATION IS COUNTING ON YOU." 



• • 



270 LET A=INT(RND*360 ) 

280 LET D-INT(RND*200 ) +100 
290 LET RMNT(RND*20) +10 



300 LET H=0 

310 IF H=7 GOTO 490 

320 LET H«H+1 
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325 PRINT 

326 PRINT 

330 PRINT "H0UR"1H!*S AT WHAT ANGLE DO YOU WISH TO SEND" 

335 PRINT "YOUR PHOTON BOMB?" 

340 INPUT A1 

350 PRINT "HOW FAR OUT DO YOU WISH TO DETONATE IT?" 

360 INPUT DI 

365 PRINT 

366 PRINT 
370 LET A»A+R 

380 IF A«360 GOTO 400 
390 LET A»A-360 
400 LET T»ABS<A*Ai> 

410 IF T<180 GOTO 430 
420 LET T-360-T 

430 LET C«SQR<D^D*Di*D!-2*D*DI*C05CT*3* 14159/ 180) > 

440 PRINT "YOUR PHOTON BOMB EXPLODED"! CJ M * l Of 2 MILES FROM THE" 
445 PRINT "THE ROMULAN SHIP" 

450 IF C««50 GOTO 470 
460 GOTO 310 

470 PRINT "YOU HAVE SUCCESSFULLY COMPLETED YOUR MISSION." 

480 GOTO 500 

490 PRINT "YOU HAVE ALLOWED THE ROMULANS TO ESCAPE." 

500 PRINT "ANOTHER ROMULAN SHIP HAS GONE INTO ORBIT." 

510 PRINT "DO YOU WISH TO TRY TO DESTROY IT?" 

520 INPUT CS 

530 IF CS»"YE S" GOTO 270 
540 PRINT "PLEASE LOGOUT" 

999 END 
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LUNAR Module 



3052 Warrington Road 
Shaker Heights , Ohio 44120 
May 30 , 1972 



Project Solo 

University of Pittsburgh 
Department of Computer Science 
Pittsburgh, Pennsylvania 15213 

Dear Sirs: 

I thought you might be interested in a program I wrote recently. 

My program is called LMLAND. This means Lunar Module LANDer. It simu- 
lates the lunar module landing on the moon in only one direction (ver- 
tical) . The user attempts to land the module with the following know- 
ledge : 

1. The LM starts at 70 miles from the surface. 

2. The LM starts with 30,000 units of fuel. 

3. Fuel is consumed at the rate of one unit for every 100 pounds of 
thrust per second. 

4. The engine can be fired for 1,000 to 10,000 pounds of thrust for 10 
second periods. 

5. The engine does not have to be fired in a ten second period. 

6. The thrust is entered in hundreds of pounds of thrust. 

The program does not take into account the change in weight due to 
the change in height or the change in the amount of fuel (fuel weighs 
something!). The program tells the user what 10 second period he is 
working on, the rate downward in feet per second (fps), the number of 
miles from the surface, and the number of units of remaining fuel. After 
telling the user all of this information, the user must put in his thrust 
If the number in the fps column becomes negative, the ship is traveling 
away from the surface of the moon. This simulator is fairly accurate in 
that the distance is realistic, the thrust available from the engine is 
realistic, and the calculations ai\* accurate according to the mass of 
the lunar module, the gravitational pull, etc. The amount of fuel, and 
the fuel consumtion are mere guesses that make the execution of the pro- 
gram interesting and a challenge. The ship must be landed at 30 fps or 
slower to be considered a landing. I landed the ship once. This is the 
only time it has ever been landed. 

The program was written in BASIC for an HP 2116C. 

Sincerely yours, 

r 

Lawrence Siegel 

Ninth grade at Woodbury Junior High 



At last — a module about modules. As can be seen from the above letter, 
this program was sent to us by a ninth grade student. We thought it was 
so good that we are mailing it to all of our readers. Oi.r file number 
for this unit is #0221. , 
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Y$J ARE IN THE LUNAR LANDER AND MUST LAND MANUALLY 
BECAUSE A SOLAR FLARE HAS ENDED COMMUNICATION WITH 
MISSION CONTROL. THE LM COMPUTER IS INOPERABLE. 

YOU HAVE 30# 000 UNITS OF FUEL AND ARE 70 MILES FROM 
the SURFACE. YOU CAN FIRE THE DESCENT ENGINE FOR 0 LBS. 
OF THRUST OR FOR 1000 TO 10000 LBS. OF THRUST FOR 10 
SECOND PERIODS* YOUR FUEL IS USED AT THE RATE OF 
1 UNIT FOR EVERY 100 POUNDS OF THRUST PER SECOND. 

THE THRUST IS ENTERED IN HUNDREDS OF POUNDS OF THRUST. 
GOOD LUCK 



SEC 


FPS 


MILES UP 


FUEL 


THRUST < 100#) 


10 


300 


70 


30000 


?0 


20 


351*52 


69*383 


30000 


?0 


30 


403.04 


68*6685 


30000 


7-10 


ILLEGAL 

30 


ENTRY. • *TR\ AGAIN 
403*04 


68*6685 


30000 


?0 


40 


454.56 


67*8564 


30000 


710000 


ILLEGAL 

40 


ENTRY* ..TRY AGAIN 
454* 56 


67*8564 


30000 


70 


50 


506*08 


66*9467 


30000 


70 


60 


557*6 


65*9394 


30000 


70 


70 


609*12 


64.8345 


30000 


70 


80 


660*64 


63*6321 


30000 


70 


90 


712*16 


62*3321 


30000 


70 


100 


763*68 


60*9345 


30000 


70 


1 10 


815*2 


59*4394 


30000 


70 


120 


866*72 


57*8467 


30000 


70 


1 30 


918*24 


56* 1 564 


30000 


70 


1 40 


969*76 


54*3685 


30000 


70 


1 50 


1021 *28 


52*483 


30000 


70 


1 60 


1072*8 


50*5 


30000 


70 


1 70 


1 124*32 


48*4194 


30000 


70 


1 80 


1175*84 


46*2412 


30000 


70 


190 


1227.36 


43*9655 


30000 


70 


200 


1278*88 


41*5921 


30000 


70 


210 


1330*4 


39.1212 


30000 


70 


220 


1381 *92 


36*5527 


30000 


?75 


230 


1357*97 


33*9581 


29250 


7100 


240 


1308*87 


31 • 4327 


28250 


7100 


2 50 


1259*76 


29*0003 


27250 


7100 


260 


1210*66 


26* 6609 


26250 


7 1 00 


270 


1161*55 


24*4145 


25250 


7100 


280 


1112*45 


22*2611 


24250 


7100 


290 


1063*34 


20*2007 


23250 


7 1 00 


300 


1014*24 


18*2333 


22250 


7100 


310 


965.132 


16*3589 


21250 


7100 


320 


91 6*027 


14*5775 


20250 


7100 


330 


866*922 


12.8891 


19250 


7100 


340 


817.817 


1 1 .2937 


18250 


7100 


350 


768.712 


9*79127 


1 7250 


7100 


360 


719.607 


8*38187 


16250 


7100 


370 


670.502 


7.06548 


15250 


7100 


380 


621.397 


5*84209 


14250 


7100 


390 


572.292 


4.71171 


13250 


7100 


400 


523.187 


3*67432 


12250 


7100 


410 


474.082 


2.72994 


11250 


7100 


420 


424.977 


1 .87856 


10250 


7100 


430 


375.872 


1.12018 


92 50 


7100 


O 440 


326*767 


.454799 


82 50 


7100 


ERJQmpact 


189*315 MPH YOU 


BLEW IT 60 
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RUN 

YOU ARE IN THE LUNAR LANDER AND MUST LAND MANUALLY 
BECAUSE A SOLAR FLARE HAS ENDED COMMUNICATION WITH 
MISSION CONTROL. THE LM COMPUTER IS INOPERABLE* 

YOU HAVE 30*000 UNITS OF FUEL AND ARE 70 MILES FROM 
THE SURFACE. YOU CAN FIRE THE DESCENT ENGINE FOR 0 LBS* 
OF THRUST OR FOR 1000 TO 10000 LBS* OF THRUST FOR 10 
SECOND PERIODS* YOUR FUEL IS USED AT THE RATE OF 
1 UNIT FOR EVERY 100 POUNDS OF THRUST PER SECOND. 

THE THRUST IS ENTERED IN HUNDREDS OF POUNDS OF THRUST* 
GOOD LUCK 



SEC 


FPS 


MILES UP 


FUEL 


10 


300 


70 


30000 


00 


351*52 


69*383 


30000 


30 


403*04 


68*6685 


30000 


40 


454*56 


67*8564 


30000 


50 


506*08 


66*9467 


30000 










200 


1278*88 


41*5921 


30000 


a is* 


1330*4 


39.1212 


30000 


220 


1306.45 


36*6242 


29250 


230 


1257.35 


34.1963 


28250 


240 


1208*24 


31*8615 


27250 


250 


1 1 59* 14 


29.6197 


26250 


260 


1 1 10.03 


27*4708 


25250 


270 


1060.93 


25*415 


242 50 


280 


1011*82 


23*4522 


23250 


290 


962.717 


21 *5824 


22250 


300 


913*612 


19*8055 


21250 


310 


864.507 


18*1217 


20250 


320 


815.402 


16* 5309 


19250 


330 


766.297 


15*0331 


182 50 


340 


71 7*192 


13*6282 


17250 


350 


668.087 


12*3164 


16250 


360 


669*294 


1 1 .05 


15750 


370 


620.189 


9*82886 


14750 


380 


571.084 


8.70076 


13750 


390 


521.979 


7.66566 


12750 


400 


472*875 


6.72357 


11750 


410 


423*77 


5*87447 


10750 


420 


374*665 


5.11838 


9750 


430 


325.56 


4* 45529 


8750 


440 


301.61 1 


3*86138 


8000 


450 


2 52.506 


3.33665 


7000 


460 


253.713 


2.85727 


6500 


470 


229*765 


2.39943 


5750 


480 


180.66 


2*01077 


4750 


490 


186.898 


1 .66271 


4300 


500 


162.95 


1 .331 41 


3550 


510 


1 1 3.845 


1*0693 


2550 


520 


64*7395 


.900183 


1550 


530 


81 *0408 


.762134 


1200 


540 


87*2795 


.602739 


750 


550 


93.5183 


•431529 


300 


OUT OF 


FUEL AT .23421 


MILES UP 




IMPACT 


IN ABOUT 20 SECONDS 




IMPACT 


150*744 MPH 


YOU BLEW IT 
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THRUST <100#) 
70 
?0 
70 
?0 
?0 



i 

I 

\ 



?0 

775 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

7 50 

7100 

7100 

7100 

7100 

7100 

7100 

7100 

775 

7100 

?D0 

775 

7100 

745 

775 

7100 

7100 

735 

745 

745 

730 
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20 PRINT "YOU ARE IN THE LUNAR LANDER AND MUST LAND MANUALLY" 

30 PRINT "BECAUSE A SOLAR FLARE HAS ENDED COMMUNICATION WITH’* 

40 PRINT "MISSION CONTROL. THE LM COMPUTER IS INOPERABLE." 

50 PRINT "YOU HAVE 30# 000 UNITS OF FUEL AND ARE 70 MILES FROM" 

60 PRINT "THE SURFACE. YOU CAN FIRE THE DESCENT ENGINE FOR 0 LBS." 
70 PRINT "OF THRUST OR FOR 1000 TO 10000 LBS. OF THRUST FOR 10" 

80 PRINT "SECOND PERIODS* YOUR FUEL IS USED AT THE RATE OF" 

90 PRINT "1 UNIT FOR EVERY 100 POUNDS OF THRUST PER SECOND." 

100 PRINT "THE THRUST IS ENTERED IN HUNDREDS OF POUNDS OF THRUST." 
110 PRINT "GOOD LUCK" 

180 PRINT 

190 PRINT "SEC"# "FPS"# "MILES UP"# "FUEL"# "THRUSTC 100# >" 

200 LET D=70 
210 LET T= 1 0 
220 LET V=300 
230 LET U» 30000 
240 PRINT T# V# D# U# 

250 INPUT F 

260 IF F#INT<F> THEN 310 
290 IF F> 1 00 THEN 310 
300 IF F*10>U THEN 310 
305 IF F*0 THEN 330 

308 IF F< 1 0 THEN 310 

309 GOTO 330 

310 PRINT "ILLEGAL ENTRY... TRY AGAIN" 

320 GOTO 240 

330 LET U» U-F* 10 

340 LET VI = V 

345 LET F*F*100 

350 LET V2*< ® 1 6-F/32000>*322 

360 LET Dl*CVl+V2/2>/528 

370 LET DsD-Dl 

380 LET V*V+V2 

390 IF D <s 0 THEN 580 

400 IF U <* 0 THEN 430 

410 LET T=T+10 

420 GOTO 240 

430 PRINT "OUT OF FUEL AT"Dl "MILES UP" 

440 LET J=0 

450 LET J=J+I 

460 LET V1 = V 

470 LET V2=. 16*332 

480 LET D=D-CVt-V2/2>/528 

485 LET V=V+V2 

490 IF D>0 THEN 450 

500 PRINT "IMPACT IN ABOUT"J*10J "SECONDS" 

580 IF V <= 30 THEN 630 

590 PRINT "IMPACT"V* 1 5/221 "MPH YOU BLEW IT" 

595 IF V<6 66 THEN 620 

601 PRINT "THE SHIP WAS SABOTAGED" 

620 STOP 

630 PRINT "YOU MADE IT" 

640 PRINT "TOUCH DOWN AT"V*1 5/22"MPH. YOU HAVE"Ui "UNITS OF EXTRA" 
650 PRINT "FUEL. BEFORE YOU REPORT TO NASA# PLEASE INFORM LARRY" 
660 PRINT "SIEGEL# 3052 WARRINGTON RD.# SHAKER HTS*# OHIO 44120#" 
665 PRINT "AS TO HOW YOU SUCCEEDED. CONGRATULATIONS" 

670 END 
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CRAZY 

EIGHTS 



This module shows you how to write a urogram that simulates a 
2-player card game based on a standard dec. 4 '* of fifty- two cards. 

Each player receives seven cards. The rfcot of the pack is placed 
face down to form the stack. The top i;&rd of the stack is turned 
face up and placed beside it to form the starter. The first player 
must place on the starter a card that matches it either in suit or 
in rank. Each in turn must thus play one card on the starter pile, 
matching the last played. 

If unable to play in turn, a player must draw cards one by one 
from the top of the stack until he is able and willing to play or 
until he exhausts the stack. After the stack is exhausted, a hand 
must play in turn if it can t when it cannot, the turn passes. 

All eights are wild. An eight may be played regardless of the 
last previous card, and regardless of whether the hand is able to 
play a natural card at that time. In playing an eight, the owner 
must name a suit/ and the next card played must be of that suit (or 
another eight) . No limitation as to rank may be made in playing an 
eight. 

The player first to get rid of all his cards wins. If the 
stack is exhausted and no hand can play, the game ends as a block. 

In scoring, the winner collects for all cards remaining in the 
other hand: 50 for each eight, 10 for each face card, 1 for each 

ace, and the index value for each other card. If the deal ends in 
a block, the player with the lowest count collects the difference 
of counts. 

Here's a run of a program which simulates the playing of "Crazy 
Eights”. The program is interactive, matching the computer's strategy 
against a human player. 

CRASY EIGHTS PROGRAM 

WHEN ASKED EMICH CARD YOU VI SM TO PLAY YOUR ANSVER 
SHOULD BE TUO NUMBERS# THE FIRST NUMBER S$ THE 
VALUE OF THE CARD. AND. .THE .SECOND IS INC SUIT# 

FOR VALUES! 

I0»10# JRCK«II*0UEEN»IE#KING»I3#AND ACE-14 

FOR SUITS! CLUBS- 1 # D! AMQNDS-£*REARTS »3 # AMD SPADES *4 
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YOUR HAND IS 

4 
7 

5 
3 
9 
$ 

Q 



C 

C 

D 

K 

H 

S 

S 



THE LAST CARD PLAYED WAS 
A H 

DO YOU WISH TO PLAY A CARD U«YEI»0«il>t t 
WHICH OF YOUR CARDS DO YOU WISH TO PLATT 9*3 

i 

YOUR HARD IS 

4 C 

7 C 

5 D 

3 H 

3 S 

Q S 

THE LAST CARD PLAYED HAS 
9 S 

DO YOU Visa TO PLAY A CARD C t«YES*0«NQ>t 1 
WHICH OP YOUR CARDS DO YOU WISH TO PLATT IR»4 

A 



V 

THE LAST CARD PLAYED WAS ^ 

S C 

THE SUIT CALLED TOR IS C 

DO YOU WISH TO PLAY A CARD f t*YS$»0«N0>T 1 
WHICH OP YOUR CARDS DO YOU WISH TO PLATT T#l 



YOUR HAND IS 

4 C 

7 C 

5 D 

3 H 

S S 



YOUR HAND IS 

4 
3 

3 

5 



c 

D 

H 

S 






THE LAST CARD PLAYED WAS 

J Q 

DO YOU WISH TO PLAY A CARD <t«YES#0«4Km 1 . 
WHICH OP YOUR CARDS DO YOU WISH TO PLATT 4*1 



YOUR HAND IS 
5 
3 
5 



D 

H 

S 




THE LAST CARD PLAYED WAS 

4 H 

DO YOU WISH TO PLAY A CARD C I*YES#0*N0>? I 
WHICH OP YOUR CARDS DO YOU WlSHgTjj) PLAY? 3*3 
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YOUR HAND IS 
S D 

S S 



THE LAST CARD PLAYED WAS 
« N 

DO. YOU WISH TO PLAY 
YOUR REV CARD IS ♦ 

DO YOU VI SH TO PLAY 
YOUR REV CARD IS 10 



A CARR < i«m«s*m»? 0 

• R 

A CARD ( l«TSS*04R0>? 0 



II 

DO YOU VISK.TO'PLAY A CARO < l"YSS*0*RQ>t 1 . 

VHICH OP YOUR CARDS SO YOU VISA TO PLATT 10*3 

A • * * 

YOUR HARD IS 

S .0 

9 0 

9 S 

THE LAST CARD PLAYED HAS 

10 D ....... 

DO YOU RISK. TO PLAV A CARD < l«VSS*O«H0>T I 
VHICH OP YOUR CARDS DO YOU VtSK TO PLAY? 9*2 



YOUR HAND IS 



S 

s 



D 

S 






THE LAST CARD PLAYED HAS 

0 o 

DO YOU VI SH TO PLAY A CARD <I-YES*OpM>T t 
VHICH OP YOUR CAROS DO YOU WISH TO PLAY? 5*2 

YOUR HAND IS 
5 S 

THE LAST CARD PLAYED HAS 
S . C 

DO YOU WISH TO PLAY A CARD < t»YES*0-N0>? 1 
WHICH OF YOUR CARDS DO YOU WISH TO PLAY? 5*4 






CARDS LEFT IN MY HAND 
6 C 

9 C 

X C 

K H 

YOUR SCORE IS 35 
MY SCORE IS 0 
YOU VON THAT HAND* 

DO YOU iriSK TO PLAY AGAIN < !-YES#0«N0>? 0 

OUT OP I HANDS YOU VON 1 • YOUR TOTAL SCORE IS 35 I MINE IS 0 • 
LOOKS LIRE YOUR HIGH SCORER. ‘ 

BYE. 
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io now mm to 

80 PRINT "CRAZY EIGHTS PROGRAM" 

60 PRINT 

>00 DIN AC50)»IM58>»0t80)#N<58) 

1 10 DIM T(S8)V9<PR>»V(S0r 
100 DIM ZfSOMJf ' 4)»Ci(tO> 

ISO READ U8<l>»U8<0>»08t3>#U8<4> 

140 FOR I»t TO 13 " 

190 ROAD CS<!> 

160 NEXT t. ' ' 

170 FOR I-I TO 80 
ISO ROAD t<I> 

190 MXXT 1 
000 DATA C*D»M«8 

g|0 OATA "B"#"3"»"4"»"9"»"6"#"7"*"0*»"0"»"I0"* J»8»K#A 
000 DATA 8#3i4»9#<8»7»90#9*l0il0#10#10#l ' 

CSS OATA O»3»4#S»6iT#90i9»IOilO'»IO»IOil 
040 DATA 8»3»4i9»6#7»90'»0* lOUOilOilOil 

080 DATA B»3#4iSi6»7»90#9» 10» 10» I0» 10* I _ 

300 PRINT "WEN ASKED WHICH CARD YOU NISH TO PLAY YOUR ANSWER" 
SOI PRINT "SHOULD BE TWO NUMBERS* THE FIRST MMBER IS THE " 

308 PRINT "VALUE OF THE CARD AND' 'THE. SECOND. LS THE SUIT." 

303 PRINT "FOR. VALUES I. 8»a«3«3»4»4»S«8#6»6»7«7.8-8*9-9»" 

304 PRINT " 1 0 - 1 0 , JACK- 1 1 . OtlESN*l 8, KI 13 .AMD ACE-14" 

308 PRI NT. ."FOR ’SUITS!" CLUBS" I » D! AN0ND0"0»MEARTS»3» AMD SPADES-4" 

380 LET L.-O v 

330 FOR lAt TO 4 

340 FOR J»! TO 13 

380 LET L»01 

360 LET S(L>.-.t 

370 LET V<L)»J 

300 NEXT J ' 

300 NEXT 1 

400 LET Nt-0 

410 LET NS»0 

400 LET N3-0 

430 LET Sl-0 

440 LET S0>0 

480 FOR !■! TO SO 

460 LET 0in«0 

470 LET HCt>»0 

480 LET ACti-RND(E> 

490 NEXT I 

SCO LET VI -0 

810 LET B1"0 

SCO LET Pl-1 

830 LET PO-t 

840 LET J>0 

980 LET Ml-99999 

860 FOR 1*1 TO SB 

970 IF A( I >.*«M1 THEN 600 

880 LET Ml “AC 1 1 

890 LET .1 i“I 

600 NEXT 1 
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510 MET J»J*1 

•90 LET D<J>all 

•30 LET All l >*99999 

•40 IE J«58 THEN S50 
•SO FOR 1*1 TO 7 
•«0 LET G<D< 58-8*1*2) ) Hi 
•70 LET K<D($8-9*l*l>>aI 
MO NEXT .1 " 

•90 LET TU>"D(38» i 

700 LET Tl*l . I 

710 LET P±S<T<1» 

790 LET Hl>7 

730 LET H8-7. 

740 LET Dl-37 

7M OOSUB 3000 
770 OOSUB. .5000 
TOO IP Vl-I THEN BM 
790 IP 91*1 THEN 860 
090 OOSUB. .5000 
830 IP V1*I THEN 860 
840 IF Bl-1. THEN 860 

8 SO OOTO ' TOO 
800 OOSUB 8009 

870 PRINT TOUR SCORE. IS. TCI 
880 PRINT “NT SCORE IS "ICS 
890 1FC8»-Ct THEN 930 
900 PRINT “YOU VON THAT HAND." 

910 LET N1-NI9I 
980 OOTO 950' 

930 PRINT "I tPM THAT HAND." 

940 LET N8-NS«! 

9 SO PRINT .. 

900 LET N3«N3«i 

970 PRINT "DO YOU WISH TO PLAY AGAIN <|aYES«0*MO)T 
975 INPUT. .29 . 

980 IF 29a! THEN 4S0 

990 PRINT " 

991 PRINT "OUT OP "IN3I* HANDS YOU. VON “IN II 
993 PRINT r. YOUR TOTAL SCORE. IS "IS1I" f NINE IS "IS8I 

995 IP SH-S8 THEN 998 

996 PRINT "LOOKS LIKE YOUR HIGH SCORER." 

997 GOTO 999 

998 PRINT "LOOKS LIKE I AH THE HIGH SCORER." 

999 PRINT "BYE." 

1000 STOP . 

8000 LET Cl-0 
8010 LET C8"0 

8080 IF H8-0 THEN 8070 

8084 PRINT 

8085 PF.I NT "CARDS LEFT IN MY HAND" 

8030 FOR I •! TO 58 
8040 IF H(I)aO THEN 8060 
8045 PRINT CS(V<I)>.US(S(I)> 

8050 LET C!-C!*2<!> 

8060 NEXT I 

8070 IF H1>0 THEN 8140 
8060 FOR I»1 TO 58 
8090 IF G(I>aO THEN 8110 
8100 LET CS«C2+2( I > 

8110 NEXT I 
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£120 IF Cl-0 THEN 2140 ' 

8122 IF C1>*C2 THEN 8130 
8184 LET C2-C2-C1 
8188 LET Ct-0 
8188 GOTO 8140 
8130 LET C1*C1*CI 
8132 LET C2-0 
8140 LET Sl-SltC 1 
also LET S8«S8+C» 

8160 RETURN 
3000 PRINT 

3009 PRINT " YOUH KANO IS" 

3010 FOR !•!.. TT S2 

3080 IF GCIXO .HEN 3040 
3030 PRINT CSCVCI>>.USCSCI>> 
3040 NEXT 1 
3110 PRINT 



5330 IF P8«»0 THEN 53S0 
5340 LET Bl-l 
9390 LET.Pt-0 
5360 RETURN ' . 

6000 U f 1-93 

6010 LET 161-1 

6080 IF HCIMO THEN 6060 

6030 IF VCt)*7 THEN 6060 

6040 IF SCII-P THEN 6160 

6050 IF VCII-VCTCTtl) THEN 6160 

6060 IF 1*1 THEN. 6010 

6061 FOR. 1-1 .10 58 ’ 

IF VOHftT THEN 6004 
IF HC1 )<*0 THEN 6160 
NEXT 1 ' 

IF 01-0 THEN 6370 
LET l-OCDO 
LET 01-01*1 
IF VC 1X7 THEN 6160 
IF SCIXP THEN 6100 
IF VtlXVCTCTIil'IHEN 6180 
LET N8-W8+I 
LET KC1I-I " 

GOTO 6070' 

LET HCI.XO. 

LET HB-H8-1 
LET Tl-Tliti 



3180 

3130 

3133 

3136 

3150 

5000 

9010 

5020 

5085 

5086 

5087 
5030 
5040 
5050 
5060 
5068 
5070 
5080 



6068 

PRINT " THE LAST CARD PLAYED HAS " *?•* 

PRINT C$CVCT1TU1>»US.CSCTCT1*>> S2S 

IF VCTCTI»X*7 THEN 3150 
PRINT "THE' SUIT CALLED FOR IS "IUS(P) ?ooo 
RETURN *,no 

PRINT "DO YOU VI SH TO PLAY A CARD ®},„ 

INPUT .89 JfiS 

IF Z9-1 THEN 5080 
IF Dt«*0 THEN 5030 

PRINT "ALL THE CARDS HAVE SEEN DEALT. XtSn 
GOTO 5330 --TOO *** RLOcKEp •*“ 

LET I-DCDO 
LET DI-Dl-t 
LET H3-Hl*t 
LET 

PRINT "TOUR NEH CARD IS "1CSCVCIIIJ" "lUSCSCIX 
OOtO 5000 

PRINT "MUCK OF YOUR CARDS DO YOU NISH TO PLAY"! 



6130 

6140 

6190 

6160 

6170 

6180 



5090 INPUT V9.S9 

5091 LET V9-V9-1 

5100 IF V9-7 THEN 5150 

51 10 IF S9-.P THEN 5150 

5180 IF V9-VCT<T1» THEN 5150 

5130 PRINT.' "THAT IS NOT A LEGAL PLAY." 

5140 OOTO 5000 

5150 FOR I-l.J TO .58 

5160 IF 0<t 1-0. THEN 5190 

5170 IF VC110V9 THEN 5190 

5180 IF SCI1-S9 THEN 5820 

5190 NEXT I' 

5200 PRINT "YOU DO NOT HAVE THAT CARD." 

5210 GOTO 5090 

5880 LET GC11-0 

5830 LET Hl-HI-1 

5840 LET Tl-Tl?l 

5245 LET UI1>-I 

5850 IF V9<>7 THEN 5880 

5860 PRINT "WHAT SUIT DO YOU VtSN"! 

5270 INPUT S9 

5280 LET P-59 

5890 LET Pl-1 

5300 IF Hi<>0 THEN 5380 

5310 LET Hl-1 ti a 

5380 RETURN.. 00 

o 

ERIC. 



6190 LET T1TI1-I 

6199 LET P-Stit 

6800 IF VC l)<* 7 THEN 6330 

6810 FOR U-l XO 4 

6880 LET YCAXO 

6830 LET K1-I3*CJ>1X1 

*835 LET K8-J3*J 

6840 FOR K-Rl TO K8 

6849 IF HCll-0 THEN 6860 

6250 LET YC3i-YC.IXt 

6260 NEXT K ' 

6870 NEXT <1 
6880 LET P-1 . 

6290 FOR J-O.TO 4 

6300 IF YCJX-YCP) THEN 6320 

6310 LET P-U 

6320 NEXT J . 

6330 LET P8.-1 

6340 IF H8«*0 THEN 6360 

6350 LET Hl-1 

6360 RETURN 

6370 IF Pl«>0 THEN 6390 
6380 LET St-1 
6390 LET.P8-0 
6400 RETURN 
6410 END 
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SIMULATING MOTION ON A 



Rectangular Billiard Table 



0 The program described in this module simulates the 
"dynamics" of a particle acting under inelastic col- 
lision. We can think of the particle as a billiard 
ball on an ideal table, i.e. a table on which no loss 
of energy takes place. 

0 Physics students can give other interpretations to 
the mathematical model which underlies the program. 

0 Information on how to use an X-Y plotter to display 
the output of this program can be obtained from 
module #0131. 

PORT 
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In the billard simulation , yre are using an elementary law 
of physics. tfhen an inelastic particle hits an immovable wall 
it bounces off in a special way. 



In Figure 1 the straight lines with arrowheads represent the path of 
a particle hitting a wall. The line with the slashes is a per- 
pendicular to the wall at the point where the particle hit the 
wall. Angle « is called the angle of incidence (i.e. the angle 
between the perpendicular and the particle’s incoming path). 

Angle 0 is called the angle of reflection (i.e. the angle between 
the perpendicular and the particle’s outgoing path.) \a elementary 
physics law (the law of reflection) states that the ngle of in- 
cidence (angle a ) and the angle of reflection (angl 0) are equal. 
Further t if the particle is inelastic and the wall unyielding 
the speed of the particle will remain constant. 

Here is another way or looking at this col 3 isio: » 



In Figure 2 an additional path is dotted in. This path is called 
a virtual path (i.e. an imaginary path). Also the perpendicular 
has been extended into the wall. The virtual path is the path 
the particle would have followed if the wall did not exist. Notice 
that angle 0' is equal to angle « (Can you prove this?) and there- 
fore equal to angle 0. The virtual path is the particle * s ^tra- 
jectory in the mirror world of uhe particle's actual path in the 
real world. 




PARTICLE'S PATH 



WALL 



Figure 1 
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Now imagine there are two walls in our real world. 




When it hits wall A the angle of incidence is « and the angle of 
reflection is $. When it hits wall B the angle of incidence is 
6 and the angle of reflection is y. What can be said of «, $, 

<S, and y? From the law of reflection we know that <* “ <8 and <6 

<Y. 



WALL A 




WALL B 1 

(MIRRORED IMAGE 
OF WALL B) 




Figure 4, 



WALL B 



I 6* ✓ 

/f! 

' Y '' j WALL A' (MIRRORED IMAGE OF WALL A) 



In Figure 4 we drew in the virtual path of the particle's tra- 
jectory in the mirror wor3.d. We already know that = <3% but 
can you prove the <•? <<$'? You should be able to using plane 

geometry. Also can ^ou show <y — <y»? <y* lies in a different 

mirror imaged world than either <* or <3'. Can you see how this 
mirror image was produced? 



If you stretch your imagination you can see that this virtual 
;?*th method can be extended to as many bounces off as many walls 
you like. In Figure 5 we used four walls and extended the re- 
fa act: ions (mirrored images) to fill a plane. This idea of reflected 
images is the method used by the billard simulation program to 
calculate the particle's movement. 



Figure 5 is a sketch of the plane of reflected tables for 
the sample run of the billard simulation program. The little boxes 
on the table's sides are the table's pockets. The solid line ex- 
tending through the different reflected tables is the particle's 
virtual path. The broken line in the box on the lower left is the 
reel path of the particle on the billard table. 
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There are three major parts to the Billard Simulation pro- 
gram. 

1. The program prompts you to give the following information: 

a. the length and width of the rectangular billard table 

b. the position and size of pockets (these are openings 
on the sides of the table through which the particle 
can exit) 

c. the starting position of the particle on the table 

d. the initial x and y components of the velocity vector 
for the particle's movement 

The table and pockets are then drawn by the plotter and the 
plotter pen is positioned at the particle's starting location. 

2. The program controls the simulation by: 

a. finding the side of the table the particle will hit next 

b. computing the impact coordinates of the particle 

c. plotting in line mode the calculated path of the 
particle’s movement 

d. checking to see if the particle exited a pocket 

(1) if it did not exit go to step 2a. 

(2) if it did exit go to the third part of the program /V 

i 

3. The program types a summary of what happened during the J 

simulation. 

a. the number of the pocket the particle exited 

b. the number of times the particle bounced off of a 3; 

side of the table before exiting 

c. the exit coordinates of the particle 

d. the distance the particle traveled on the table 

e. the time units elapsed between the time of the 
particle’s initial velocity on the table and the 
time of its exit into a pocket. 

F 

3d and 3e assume the initial velocity is per unit time. 

The person running the program is then given the choice 
of starting another particle on the same table or ending 
the program. 
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An Explanation of the Program Parts 

Here is a description of what statements 100 to 260 do. These 
lines set up or initialize the particular simulation to be done. 



100 

.105 

110 

115 - 117 
120 - 136 
137 

140 -215 



218 

220 

230 - 250 



258 

260 



All variables are set to zero. 

Dimensions are set for pockets in the table— a maximun 
of 10 pockets is allowed. 

I, N, and B are made integer variables. I, N, and B 
are going to be used for counters within the program. 

The forms are set for use in the print statements. 

The length and width of the billard table are set. 

A scale factor for the plotting statements is determined. 
These statements ask the user to describe the positions 
and sizes of the pockets; they also check to make sure 
that no "impossible” pockets are requested. 

Subroutine 600 is called. It draws the billard table 
on the plotter. 

The bounce counter is set to zero. 

These statements ask the user to state the initial 
position and components of the velocity vector for 
the particle; they also check that the starting 
position is on the table and that the particle is 
not stationary. 

The plotter is put in line mode. 

The pen is positioned at the particle's starting 
location on the table 

(the x component is scaled to two-thirds of the 
y component) 

(both x and y are scaled for coordinate system 
0 to 9999) 

(both x and y are scaled for a non-square table) 






V 

V 



Variables introduced in lines 100-260. 

P(N,1) is the opening x coordinate of pocket N. 

Q(N,1) is the opening y coordinate of pocket N. 

P;’N,2) is the closing x coordinate of pocket N. 

Q(N,2) is the closing y coordinate of pocket N. 

A$,B$, and C$ are string variables containing format definitions. 
R is the length of the rectangular table. 

T is the width of the rectangular table. 

A is used to scale the coordinates for plotting. 

N is the number of pockets in the table. 

B is the counter for the number of times a particle bounces off 
of a side before it exits a pocket. 

X is the x coordinate of the particle's starting position. 

Y is the y coordinate of the particle's starting position. 

51 is the x component of the velocity vector of the particle. 

52 is the y component of the velocity vector of the particle. 
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An Explanation of the Calculations for the 
Simulation of the Particle’s Movement 



Lines 265 to 285 control the calling r*“ subroutines to 
calculate the particle’s movement and plot this movement. 

Subroutine 300 finds the next side of the table that is hit. 

We envision the table as being reflected until it covers the plane 
(See Figure 5). In this view the particle’s trajectory is then a 
ray starting at an initial point and extending in one direction 
with a given velocity. The x and y coordinates for the particle 
are given values in this plane extension (See flowchart Figure 6) • 
Then subroutine 400 translates each coordinate pair produced into 
cooresponding coordinate values in the original table. These values 
(Ml and M2) are used in subroutine 500 to check for pocket encounters 

or exits. 



Relevant variables in subroutine 300 

D2 is the distance from the particle's present position on the 
virtual path on the reflected tables to the next vertical side 
encountered on this path. ' 

D1 is the distance from the particle's present position on the ' 

virtual path on the reflected tables to the next horizontal 
side encountered on this path. 

H1/H2 are the x and y coordinates of the next horizontal side * 

encountered by the particle on its virtual path on the * 

reflected tables. This assumes that intermediate vertical 
side encounters are ignored. 

V1/V2 correspond to Hi and H2 for the next vertical side encoun- • 
tered by the particle. 

Subroutine 400 translates the x and y coordinates of the next 
side encountered on the particle's virtual path on the reflected _ 

tables to their corresponding x and y coordinates on the original f 

table. 



Relevant variables in subroutine 400 

Cl is the number of complete table widths between the original 
table and the x coordinate of the next side encountered on 
the particle's virtual path on the reflected tables. The 
sign indicates right (+) or left (-) of the particle's start- 
ing position. 

C2 is similar to Cl for the y coordinate. The sign indicates 
up (+) or down (-) . 
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Ml is the displacement from the vertical boundary named in Cl 
to the x coordinate of the next side encountered on the 
virtual path. 

M2 is similar to Ml for C2 and the y coordinate. 

We convert Ml and M2 to be the coordinates normalized to the 
original table. There are four cases for Ml conversions; one for 
each different reflection of the original table the particle may 
encounter • 




Li Oli lialij 



y-axis 



I * Ml is unchanged. The reflected image is the same as the 

original • 

II * Ml is changed to the width of the table minus Ml. The 

reflected image is like the one to the right of the original. 

III = Ml is negated. The x coordinate is moved to the positive 

side of the y axis. The reflected image is like the one on ^ 

top of and to the right of the original. 

IV = Ml is changed to the width of the table plus Ml. The re- 

flected image is like the one on top of the original. 

A 

Similar conversions are done for M2. V 

Subroutine 500 checks to see if the normalized x and y co- 
ordinates of the particle are included in the pocket for which it 
was called. If it is not included the subroutine returns. If it 
is included a summary of information is printed about the particle* s 
movement. 

I 

Relevant variables 

D is the distance traveled by the particle on the table. 

Tl is the number of time units elapsed. 



Here is a description of the statements that draw the table 
and its pockets. (lines 600-845) 

600 Dimensions are set for the maximum number of pockets 

allowed on one side of the table. 

605 X9 , Y9, J, and J1 are made integer variables. 

610 The plotter is set to line mode. 
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615 

620 

625 - 635 
640 
645 
650 

655 - 675 
680 

715 - 780 

785 

790 

800 - 845 



Y0 is set to find pockets along the side of the table 
where the y coordinate is zero. 

A counter is initialized to zero. 

All the pockets along the given y coordinate are found 
and put in the B matrix. J is the number of pockets found. 
Subroutine 800 is called to sort the pockets in the B 
matrix. This is done in order to plot the side. 

Y9 is set to the scaled y coordinate to be used in the 
plot statements . 

The plotter pen is positioned to begin plotting. 

These lines plot the horizontal sides of the table 
with spaces where the pockets are located. 

If only one horizontal line is plotted# go back and 
plot the second horizontal line. 

These lines are the same as lines 615 — 680 except 
for the vertical sides. 

The plot line mode is ended. t « 

This returns to the statement that called subroutine 600. 
These are the statements that sort the pockets in the B 
matrix into ascending order before plotting. 
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A listing of the program /BILLARD/. 



o 

ERIC 



100 
105 
1 10 
1 15 
116 
1 17 
120 
125 
130 

135 

136 
GO TO 



VAR-ZERO 

DIM PC 10*2> *QC 10*2) 

INTEGER I *N*B 

AS*"* PARTICLE EXITS POCKET 1 
BS*"* COORDINATES C* ZZZD.DDD 
CS*"* DISTANCE * ZZZZZZZD. DD 1 
PR. 

PR. 



ZD 
•* • 



AFTER * ZZZD* 
ZZZD.DDD* ) * •/*• 
TIME • ZZZD* DD* * 



BOUNCES* V 



M 






••PROGRAM TO SIMULATE PARTICLE DYNAMICS 
••IN A POCKETED RECTANGLE.** 



M 



PR. PR. M INPUT THE LENGTH AND WIDTH OF YOUR RECTANGLE** I 
INPUT R*T 

IF R<0 OR T<0 PR. "LENGTH AND WIDTH MUST BE GREATER THAN ZERO 
130 



M 



137 
1 AO 
145 

i£o 
160 
1 65 
170 
175 
1 BO 
181 
183 

185 

186 

187 

188 

189 

190 
193 
195 
200 
202 
205 
208 
210 
215 
218 
220 
230 
235 
238 
GOTO 



LET A*MAXCR*T> 

PR. PR. "ENTER POCKET PAIRS." 

PR. "ENTER A NUMBER LESS THAN ZERO 
N«0 

PR. "OPEN X COORDINATE*" 8 
INPUT PCN + 1 * 1 )* 

IF PCN+1*1X0 GOTO 218 



WHEN YOU WANT NO MORE POCKETS 



• I 



IF 

IF 

PR. 

PR. 



QCN+1 » 1 )<0 
GOTO 193 



GOTO 190 



PR. "OPEN Y COORDINATE*": 

INPUT GCN+1* 1) 

IF PCN+1*1)>R OR QCN+ 1 * 1 > >T OR 
PCN + 1*1) <>0 AND PCN+1*1X>R 

QCN+1* 1 X>PCN+1* 1 > LET PCN + 1 *2) »P< N+ 1 * 1 > GOTO JH7 
"CLOSE X COORDINATE *": INPUT PCN+1 *2) 

"CLOSE Y COORDINATE *": INPUT QCN+1 *2) 



A 



PCN+1*2)>R OR PCN+1 *2)<0 OR QCN+1*2)>T OR QCN+ 1 *2) <0 
PCN+'l* 1)*PCN+1*2> OR QCN+1* 1 )*QCN+l*2) GOTO 205 



GOTO 190 
COORDINATE* 



• • • 



IF 
IF 

PR. "ILLEGAL POCKET." GOTO 160 
IF QCN+1*1> <>0 AND QCN+1*1X>T 
QCN+1*2)*QCN+1* 1) PR. "CLOSE X 
INPUT PCN+ 1 *2) 

IF PCN+1*2>>Z OR PCN+ 1 *2) <0 GOTO 190 

IF PCN+1* 1X*PCN+1*2) AND QCN+1 * 1 X*QCN+1*2> GOTO 215 
LET E*PCN+ 1*1) LET PCN+ 1 * 1 ) *PCN+1 *2) LET PCN+1*2)*E 
LET E«QCN+ 1 * 1 > LET QCN+1 * 1 > *QCN+1 *2) LET GCN+1*2)*E 
N»N+ 1 GOTO 160 
GO SUB 600 
B*0 
PR. PR 
INPUT 
IF X>R 
230 



GOTO 190 



V 



"TYPE 
X*Y 



THE X* Y CORDI NATES OF THE 



PARTICLES INITIAL 



POSITION.": 



OR X<0 OR Y>T OR Y<0 PR. "IMPROPER STARTING POSITION 



• I 



AND 

THE 



PARTICLE* 



247 

250 

258 

260 

265 

270. 

275 

280 

285 



240 PR. "TYPE THE X 
VELOCITY VECTOR FOR 
245 INPUT S1#S2 

IF S1*0 AND S2*0 PR. 

LET X1*X LET Y1*Y ' 

PR. "PLTL" 

PRINT INTC2./3.+CX/A+9999) )* 
300 
400 

INTC2./3.+C Ml/A+9999) ) * 
500 FOR 1*1 TO N 
265 



Y COMPONENTS OF THE 



M 



"PARTICLE IS STATIONARY." GOTO 240 



INTC Y/A+9999 ) 



GOSUB 
GO SUB 
PRINT 
GOSUB 
GOTO 



INTCM2/A+9999 > 
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A listing of the program /BXLLARD/ continued. 



300 REM FIND THE NEXT WALL 

305 IF S2*0 LET D1 *100000 GOTO 340 

310 IF S2*Y<0 GOTO 320 

315 H2*<INT<Y/T>+ABS<$2>/S3>*T GOTO 330 
320 H2*INT<Y/T>*T 

325 IF H2*Y LET H2*H2+AB$<52)/52*T 
330 Hi«X+<H2-Y)*Sl/S2 

335 Dl*CH2«Y)*<H2-Y> ♦<Hl •X) *CHi-X> . 

340 IF 3 1*0 LET .02*100000 GOTO J3t5 ; ' \ 

345 IF S1*X<0 GOTO 355 

350 V 1 «< INT <X/R > ♦ABSC S 1 > /S J > *R GOTO ,365 

355 Vi*INT<X/R)*R - 

360 IF Vt»X LET V 1 « V 1 +ABSCS 1 > /$ 1 

365 V2»Y+<V1-X)*S2/S1 

370 D2*CVt-X)*<Vl-X)+<V2-Y)*<V2-Y|,,.. 

375 IF D2>D1 GOTO 390 
380 LET X*V1 LET Y*V2 
385 LET B*B+l RETURN 
390 LET X*H 1 LET Y»H2 
395 LET B»B+1 RETURN 

400 REM NORMALIZE PARTICLE COORDINATES 
405 LET Cl*INT<X/R) LET C2*INT<Y/T> 

410 LET M 1 »X -C 1 *R LET M£*Y -C2*T ; • 

415 F*INTCC 1/2) 

420 IF X<0 GOTO 435 y : - 

425 IF Cl/2-F*0 GOTO 445 

430 Ml *R-M 1 GOTO 445 

435 IF Cl/2-F*0 LET M1»-M1 GOTO 445 



/ 












: ... . •-••• 
■ . -I- . . ■ 



iv 






440 M1*R+M1 
445 F-INTCC2/2) 

450 IF Y<0 GOTO 465 

455 IF C2/2-F*0 RETURN 

460 M2«T-M2 RETURN 

465 IF C2/2-F*0 LET M2*-M2 RETURN 

470 M2*T+M2 RETURN 

500 REM CHECK PARTICLE AT WALL FOR POCKET ENTRY 

505 IF PCI* 1)=PCI*2) GOTO 525 

510 IF Ml <P( 1*1) RETURN 

515 IF M1>PC I >2) RETURN 

520 GOTO 530 

525 IF Ml <>P( I > 1 ) RETURN 
530 IF OC I » 1 )*QC 1*2) GOTO 550 
535 IF M2<Q( 1*1) RETURN 
540 IF M2>Q( I >2) RETURN 



545 GOTO 555 

550 IF M2<>Q( 1*1) RETURN 

555 D*SQRT< CX-X1 )*CX -X 1 ) + C Y-Y 1 ) *C Y-Y 1 ) ) 

560 T 1 *D/SQRT< S 1 *S 1 +S2*S2) 

565 PRINT M PLTT M 
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A listing o£ the program /BILLARD/ continued. 



570 PR. 

575 PRINT IN FORM ASll*B-i 

576 PRINT IN FORM B$SM1#M2 

577 PRINT IN FORM C$lD#Tl 

585 PR. PR. "TYPE YES FOR MORE PARTICLES ON THIS TABLE M l 
590 INPUT S$ 

595 IF S$*"YES M . GOTO 220 



596 END 

600 DIM B<5*2> 

605 INTEGER X9*Y9*U 
610 PR. "PLTL" 

615 Y0*0 
620 J»0 

625 FOR I»1 TO N 

630 IF Q< I # l > »Y0 LET J*J*1 LET B< J* l >»P< I * 1 > LET B< J#2.*«P<Ia2> 

635 NEXT I 

640 GOSUB 800 

645 Y9»Y0/A*9999 

650 PR. 0*Y9 S"» " 

655 FOR 1*1 TO J 

660 PR. INT<2./3.*<B< I* l >/A*9999> > *Y9 
665 PR. INT<2./3.*<B(l*2)/A*9999>>*Y9t"t*» 

670 NEXT I 

675 PH* INT<2./3.*<R/A*9999>>#Y9 
680 IF Y0*0 LET Y0«*T GOTO 620 



715 X0*0 
720 J=0 

725 FOR 1*1 TO N 

730 IF PC I # 1 > **X0 LET LET B< 1 > *»0< I • l > 

735 NEXT I 

740 GOSUB 800 

745 X9«2./3.*<X0/A*9999> 



LET B< J* 2) *Q< I #2) 



750 PR. X9*Q *•'* " 

755 FOR 1*1 TO J 

760 PR. X9* INTCBC I * l >/A*9999> 

765 PR* X9# INTCBC I *2>/A*9999 ) l M t" 

770 NEXT I 

775 PR. X9* INTCT/A+9999) 

780 IF X0*0 LET X0**R GOTO 72Q 
785 PR* M PLTT M 
790 RETURN 
800 J1»0 

810 FOR I**l TO J-l 

815 IF B< I « 1 > <**B< I + 1 » 1 > GOTO 835 

820 LET E»BCI*1> LET B< I # 1 > »B< I ♦ l # 1 > LET BCI*l*l>»E 
825 LET E*BCI*2> LET B< I *2)*B< I+l#2> LET BCI+1*2>=E 



830 Jl**l 
835 NEXT I 

840 IF Jl«l GOTO 800 



845 RETURN 
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A sample run of the program /BILLARD/ • 



»RUN 

PROOFS TO SIMULATE PARTICLE DYNAMICS 
IN A POCKET &D RECTANGLE* 

4 • 

INPUT THE LENGTH AND WIDTH OP YOUR R£CTANGLE?9#9 

ENTER POCKET PAIRS. _ _ 

ENTER A NUMBER LESS THAN ZERO WHEN YOU WANT NO MORE POCKETS* 

OPEN X COORDINATE®? 6 

OPEN Y COORDINATE-? 0 

CLOSE X COORDINATE^? 8 

OPEN X COORDINATE®? 9 

OPEN Y COORD- NATE®? 7 

CLOSE Y COORDINATE ®?8 

OPEN X COORDINATE®?- 1 

PLTL 

TYPE THE X#Y CO EDI NATES OF THE PARTICLES INITIAL POSITION* ?2#2 
TYPE THE X AND Y COMPONENTS OF THE 
VELOCITY VECTOR FOR THE PARTICLE*?2#3 
PLTL 

PARTICLE EXITS POCKET l AFTER 5 BOUNCES# 

COORDINATES < 6*667# 0*000) # 

DISTANCE 40*86# TIME 11*33* 

TYPE YES FOR MORE PARTICLES D «HIS TABLE ?NQ 



7?h© plotter drawing of the billard table and the particle 
movement in the above run is shown cn the title page of this 
module . 



Challenges 

# Write a program that simulates inelastic collision on an 
elliptical billard table. 



• If you have an x-y plotter, use your program to produce 
graphical output of the kind shown on the cover. See module 
#0131 for some help. 
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SIMULATING MOTION ON AN 



♦ 



ELLIPTICAL 

Gilliairi Table 

• The program Elliptical Billiards simulates the motion of 
a ball on an "ideal" billiard table built in the shape of 
an ellipse. The table can have any number of holes * and 
each hole can have a different radius. The program as- 
sumes that a single ball has been placed at any position 
within the ellipse, and then given an initial velocity. 

The magnitude and direction of this velocity are specified 
by the person running the program. 

• As in most simulations, the physical situation has been 
"idealized" in a number of ways. First, we assume that 
the table is frictionless, that is, that the ball's energy 
(and therefore its speed) does not change with time. The 
ball is assumed to be an infinitely small inelastic sphere. 
The sides of the elliptical table are also assumed to be 
inelastic . 




PROJECT SOLO / Qe.pt. oh Compute .K Science / Uyilv. oh PlttAbuAghl 1 52 1 3) 
Module, # 0113 / Gaiy Llndbtfiom S CaKolyn Le,n (PS) 



The elliptical billiard simulation is based on the 
law that the angle of incidence sguals the angle of reflection* 
For the simulation the user specifier the size of an elliptical 
table , the number of holes in the table (at least one) # and the 
position and size of each hole. After the table is specified 
the user positions a particle on the table and gives the compo- 
nents of the particle's initial velocity vector. The particle's 
movement on the table is then simulated until the particle tells 
through one of the holes in the table. The particle is idealized 
such that it is thought of as a point with no dimensions. This 
is done so that when the particle hits the side of the ellipse 
it hits at only one point on the ellipse. Also the particle is 
inelastic and the ellipse's sided are unyielding sp that the 
speed of the particle remains constant. 



The data needed for the simulation is requested and verified 
in lines 110 to 205. 



A is the x-intercept of the ellipse; verified that A>0. 

B is the y-intercept of the ellipse; verified that B>0. 

!x(I), Y(I)l are the x and y coordinates for the center of the 
1 Ith hole; verified that IxjpY + 7xfU.j a < i. 

r (I) is the radius of the Ith hole; verified that R>u. 

are the x and y coordinates of the particle's starting 
position; verified that /u\ + /Vj < ^ 

1 V1.V2 t are the x and y components of the initial velocity 
vector; verified that |Vl| +• | V2 | >0 . 



The geometric interpretation of the above is: 
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After the input of the data and the initialization of neces- 
sary variables the following steps are performed to calculate and 
plot the particle's movement. 

215-220 These lines calculate the equation of the particle's cur- 
rent trajectory line. 

The trajectory is calculated by using plane geometry. It is 
the line determined by two points. In this case# one point is 
the particle's present position (U# V) and the other is the part- 
icle's position after the components of the velocity vector have 
been added (U+Vl# V+V2). The formula for two points determining 
a line is: 

<y 2 - yi>* - <* 2 " x i )y + *2*1 " x i y 2 “ 0 

In our problem x^ ■ U+Vl “ v+v ^ 

x 2 * U y 2 a V 

X*(V - (V+V2 ) ) - Y (U- (U+Vl) ) + (U* (V+V2) - (U+V1)*V) - 0 

-V2*X + V1*Y + ( U»V2 - V*V1 ) * 0 is the current trajectory line. 
A1 B1 Cl 

D1 is set to /a! 2 +B1 2 to be used later in the program. 



223 The particle's position is plotted. 

225 Subroutine 300 is called to find the point where the particle 
will next hit the side of the ellipse. 

230 Subroutine 400 is called to see if the particle passed over 
a hole and fell off of the table. 

235 If the particle passed out of a hole and the user wants an- 
other particle on the same table this statement will reini- 
tializes the bounce counter and go back to start another 
simulation. 

240 If the holes are missed subroutine 500 is called to calculate 
the components of the new velocity vector. 

245 The bounce counter is increased by one. 

255 The x and y coordinate variables to be used in calculating 
the particle's movement are set to the particle's present 
position. 

260 The cycle of calculating the particle's movement is restarted. 



Subroutine 300 finds the next point on the table where the 
particle will hit. We seek the mutual solution to the equation 
for the ellipse and the equation of the current trajectory line. 
Variables P and Q will hold the x and y coordinates of the impact 
point. 

These are calculated as follows: 
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“ (*)' ♦ (i)' 

XI i Al*X + Bl*Y 



1 is the equation for the ellipse* 

Cl ■ 0 is the equation for the current 
trajectory line* 




t 



(A1*X + Cl) 2 * B1 2 *B 2 *(1 -(x/A) 2 ) 

A1 2 *X 2 + 2*A1*C1*X + Cl 2 « B1 2 *B 2 *(1 -(x/A) 2 ) 
Al 2 + B1 2 *B 2 



+ 



(2*A1*C1)*X + (C1 2 -B1 2 *B 2 ) 

X ^ 



A2 



B2 



G2 



Using the quadratic formula: 

P « -B2 i/B2 2 -4»A2»G2 
2*A2 




! 



! 



r 



A2 = 0 is not possible, since this would mean that XI is 
tangent to I, an impossible trajectory. The square root term 
must be real; otherwise X and II would not meet. 

We try the plus case of the plus-minus choice first. A test 
is made in line 330 to see if P is in the same direction from U 
as VI. If P is not in the same direction we have the wrong case 
and the minus choice is needed. 
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This is computed by: 

V1*(P-U)>0 implies that + 
is the correct case. 



VI 




Figure 3 



NOTE: A vertical vector# VI ® 0# requires a special case: 

Q « B A* (U/Al 1 if V2>0 
-B /l- (U/A) 2 otherwise 

For Vl^O, Q is found by solving II. 

As stated before, P and Q are the x and y coordinates of the point 
where the particle hit the side of the ellipse. 

Subroutine 400 checks to see if the line of trajectory passes 
over the Ith hole. This is done by using th* formula for the dis- 
tance between a line and a point. If the distance between the 
trajectory line and the center of the hole is less than the radius 
of that hole the particle will fall off the table through that hole. 

If D<R(I) # ball passes 
over hole I. 



D is taken to be the dis- 
t rav e led on t he last bounce. 

D = /w 2 - D 2 



When the particle falls through a hole the following information 
is given: 

I is the number of the hole it exited. 

T is the time for the simulation of this particle. 



That is: D = |A1«X(I) + B1»Y(I) = Cl I 

Al 2 + Bl 2 

A1*X(I)+B1*Y (I)+C1 - 0 
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B5 is the. number of times the particle bounced off of the 
side of the ellipse. 

02 is the distance the particle traveled on the table. 

Time and distance calculations assume the intial 
velocity is per unit time. 

Subroutine 500 computes the x and y components of the new 
velocity vector for the particle’s bounce. We do this by first 
finding the slope of the tangent to the ellipse at the point where 
the particle hit the side. Then we set up a new coordinate system 
by translating the orgin to the particle’s impact point and rota- 
ting the axises until the y-axis coincides with the tangent. The 
bounce effect in this new coordinate system is found by negating 
the y component of the velocity vector and leaving the x component 
alone. Once the new components of the velocity vector are found 
in the translated and rotated coordinate system they are trans- 
formed (put back) into the original coordinate system. There is 
a special case to this method when the y-component is zero. In 
this case the slope is infinity. The new x-component is found 
by negating the old x-component and the y-component remains zero. 

For the special case there is no need to translate and rotate the 

axises. If the slope is not infinity we work with the new coor- 

dinate system as follows: 

Let V 1 , V2 X be impact velocity components in the new system. 

Let W1 l , W2 1 be rebound velocity components in the new system. 

Let Wl, W2 be rebound velocity components in the original system. 



See Figure 5. 



New Y-Axis 





New X-Axis 



F 



Orignal X-Axis 
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By using polar coordinates we can discover the relationship 
between the Cartisian coordinates of any point P(x,y) and its 
image P x (x x ,y x ) under the rotated and translated system* 



The equations for translating between the original 
system and the new one are: (The coordinates of the new origin with 

respect to the old axis are x * h and y - k> the angle of rotation 
is 6 • ) 1 



x x ■ (x-h)*cos0 + (y-x)*sin0 
y x - (y-k) *cos0 - (x-h)*sin0 



Since we are concerned with vector components and not exact 
points on the new coordinate system we can eliminate the origin 
translation from our calculations to find the vector components. 
The equations become: 

•\ x x « x*cos0 + y*sin0 
y l s y*cos9 "* x*sin0 

VI 1 ■ Vl*cos0 + V2*sin0 
V2 X » V2*cos0 - Vl*sin0 

Wl x * VI 1 - Vl*cos0 + V2*sine 
W2 X ■ -V2 » -V2*cos0 + Vl*sin0 

Returning to the original system leaving off the translation 
of origin values again, we have 



x - x l *cos0 - y x *sin0 
y S3 y l *cos0 + X X *Sin0 



• • 



W1 



= Wl x cos0 - W2 x sin0 



W2 = 



(Vl*cos0 + V2*sin0) *cos0 - (-V2*cos0 
(cos 2 0 - sin 2 0) *V2 + (2*sin0cos0)Vl 

W2 x *cos0 + Wl x *sin0 
(-V2*cos0 + Vl*sin0) *cos0 + (Vl*cos0 
(sin 2 0 — cos 2 0) *V2 + (2*sin0cos0 )V1 



+ Vl*sin0)*sin0 



+ V2*sine) *sin0 
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We can eliminate the 0 from the preceding equations for W1 
and W2 bv using the slope of the tangent. The slope of the tan- 
gent at the point ( ,y> was found by taking the derivative of the 



-XB 2 /A 2 X* 

Using M as the slope we have: 



sin8 = 



M 

mm mmw 
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usual M. Selby, CRC Standard Mathematical Tables 
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Thus 



W1 



,/J^. - _“L\vi - -4-* r==rV v2 

yl+M 2 1+M 2 / \ /1+M 4 /1+M / 



■(^) 



kVl - 2* 



/ iL\*V2 

\1+M 2 / 



M2 



./j2 i — Vv2 - ( 2 * JLx 

\l+M 2 1+M 2 / \ A+M 



1+M 2 / 

> .-’5 ** v 



*> Y*i 



\1+M 2 / 



*V2 - 2* 
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Subroutine 700 is used to plot the ellipse. Plotting coordi- 
nates are found by solving the ellipse equation for a y value give 

an x value. 

*1 « *1 » l 
A 2 B 2 

B 2 X 2 + A 2 Y 2 » A 2 B 2 

y 2 - A 2 B 2 - B 2 ^ ^ : - 



.. SQRT(A 2 B 2 - b 2 x 2 ) 



Y « 



Here is a line description of Subroutine 700. 

725 A variable is set to plot for the positive y coordinate 
of the ellipse. 

730 The plotter is put into line mode. , . . , 

740 A loop is set up for the number of points to be plotted 

for half the ellipse. 

750 The x value is determined. 

760 The y value is calculated. 

770 This statement plots the ellipse. , . 

780 The loop is continued until the termination criteria is 

reached . 

785 The plot mode is ended. _ 

790 If the negative values for y have not been plotted go 

back and plot them . . . . 

795 This statement returns control to the place from which 

the subroutine was called. 
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Subroutine 800 is used to plot the holes on the table. Plot- 
ting coordinates are found by calculating the Cartesian x and y 
coordinates using the conversions from polar coordinates. In the 
calculations ft (I) is the radius# the angle 0 is going from 0 to 
2ir to draw the complete circle# and the X(I)# Y(I) are added for 
the circled center displacement from the origin. 



The x coordinate ■ K • R(lj *COS6 + X(I). 

The y coordinate m l> R(l)*cos6 + y (i) . 

Here . is a; line., description, of ' './‘J. . . , , , 

■ . • ■»/ M 1 *- ..a ■ .*• S”V ****>!.,•. **.-■. , ■»■*.*■ 'I- 

810 The plotter is put into line' mode./" 

820 The loop is set up for the number .of points be plotted 
• for the circle. - ^ 

830 'The x coordinate • is vc*ldalatMV J ;-^ 

840 The y coordinate is calculated. 

850 If a point is out side the ellipse do not plot the value. 

This allows partial holes on the sides of the ellipse • 

860 This statement plots the circle. 

870 The loop is continued until thei termination criteria is 
reached. ’’ C - ' . '.'7 

880 The plot mode is ended. 

890 This statement returns control to the place from which 
the subroutine was called. 



The following is a sample run of the program /ELLIP/. 



RUN 

INPUT THE X-AXIS INTERCEPT ?4 
INPUT THE Y-AXIS INTERCEPT ?3 
PLTL 
PLTL 

INPUT HOLES: CX#Y> CENTER# R RADIUS# ABS(X)>X INTERCEPT ENDS LIST# 
INPUT X ? -2 #645751, 

INPUT Y ?-l 
INPUT R ?#5 
INPUT X 7-100 
PLTL 

INPUT PARTICLE 'STARTING POSITION X#Y# ?l#64575l#-l 
INPUT INITIAL VELEQCITY VECTOR: VX#VY# ?1#I#5 
PLTL- 

PARTICLE LEAVES HOLE 1 AT TIME 5#38 
AFTER i BOUNCEC S) # PATH LENGTH 9.69 

IF YpU WISH ANOTHER PARTICLE IN THIS ELLIPSE TYPE YES# ?N0 
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The characters PLTL above indicate that the plotter is activated 
at this point in the run. The ellipse is drawn first, then the 
holes, and finally the path of the particle. The picture on the 
cover of this module (pg. 25) show an actual drawing made by 
an X-Y plotter. Further information on use of a plotter is found 
in module 0131. 
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The following is a listing of the program /ELLIP/ • 



MAY 22 18 *55 /ELLIP/ 



100 
102 
1 0'3 

1 04 

105 
110 
115 
120 
125 
130 

135 

136 

137 

138 
1 AO 
143 
1ST 
145 
150 
155 
160 
170 
GOTO 
175 PH*. 



• ZZZD.DD/" 
•ZZZD.DD/" 



HEM ELLIPTICAL BILLARD SIMULATOR 
LET F5*9999 

A$= m, PARTICLE LEAVES HOLE • ZZD, ’ AT TIME 
B$« M ’AFTER 'ZZD • BOUNCECSJJ PATH LENGTH 
DIM XC 10>#VflO)»BClO>*K<IO>»LOO> 

PR. "INPUT THE X-AXIS INTERCEPT "« 

I NPUT A 

IF A<*0 PR. "AXES MUST BE POSITIVE." GOTO 110 
PR. "INPUT THE Y-AXIS INTERCEPT "* 

I F^B<*0 PR. "AXES MUST BE POSITIVE." GOTO i£5 
F1*MAXCA#B> LET F2»2*F1 LET Z«2./3* 

LET A9 » A* A LET B9*B*B 
GOSUB 700 

PrI "INPUT HOLES* <X#Y>CENTER# R RADIUS# ABS(X»X INTERCEPT ENDS L 
"INPUT X "* INPUT XCH+l) 



PR« 



180 

183 

PR. 

185 

190 

192 

195 



IF ABSCXCH+ 1 ) >>A GOTO 190 
PR. "INPUT Y "* INPUT YCH+l) 

^F^ C*C/A9+D*D/B9>?°PR^ + ”H0LE CENTER MUST BE INSIDE ELLIPSE." 
145 

"* INPUT RCH+l) 

PR. "HOLE RADII MUSTBE POSITIVE. " GOTO 175 
PR. "HOLE RADII MUST BE SMALLER THAN"* 
INTERCEPT." GOTO 175 ' 






••INPUT R 
IF RCH+1><*0 
IF RCH+l )>F1 
•• MAJOR AXIS 
H*H+ 1 GOTH 145 

PR> I NPUT^PART I CLE^ START I N G POSITION X#Y. "* INPUT U#V 
IF U*U/A9+V*V/B9> 1 PR. "STARTING POSITION OUTSIDE ELL I PS E- 

200°PR? 2 "INPUT INITIAL VELEOCITY VECTOR* VX>VY. "S INPUT VI » V2 
IF ABSC VI >+ABSC V2)<=0 PR. "NON-ZERO VECTOR# PLEASE. GOTO 
LET B5*0 LET D2®0 LET S=0 

"PLTL" "" 

Al«-V2 LET Bl*Vl 

C1«U*V2-V*V1 LET D1»SQRTCA1*AI+B1*B1) 

INT(Z*C CU+Fl >/F2*F5> > # INT C < V+Fl >/F2*F5> 

300 

400 FOR 1*1 TO H 






tt 



205 

210 

211 

215 

220 

223 

225 

230 

235 

240 

245 

250 

255 

260 

300 



200 



PR. 
LET 
LET 
PR. 
GOSUB 
GOSUB 



192 



IF S*1 GOTO 
GOSUB 500 
B5*B5+ 1 

PR. INTCZ + C CP+F1 >/F2*F5> ) # 
LET U-P LET V*Q 
GOTO 215 

REM FIND NEXT WALL ENCOUNTER 



INT < *Q+F1 >/F2*F5> 



O 

ERIC 
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A listing- of the program /ELLIP/ continued. 



305 A2«AI*A1+B1*BI*B9/A9 

310 B2=2*A1*C1 LET G2«C1*C1-BI*B1*B9 

315 W=SQRT<B2*B2-4*A2*G2> 

320 P»<W-B2>/<2*A2> 

325 JF Bl«0 GOTO 340 

330 IF V1*<P-U><»00001 LET P«C -W-B2>/<2*A2> 

335 Q=<-C1-AI*P>/B1 RETURN 
340 REM VERTICAL VELOCITY VECTOR 
345 P=U LET Q-B*SQRTU-U*U/A9> 

350 IF V2<0 LET Q»-Q 
355 RETURN 

40^» REM CHECK FOR PASSAGE OVER HOLE I 

405 D=ABS<A1*X<I>+B1*Y<I)+C1>/DI 

410 IF D>R< I ) RETURN 

415 C=X<I>-U LET E=Y C I ) • V 

420 IF V1*C+V2*E<.0000 I RETURN 

425 W»SQRT<C*C+E*E> LET D2»D2+SQRT< W*W-D*D) 

430 T=D2/SQRTCV1*V1+V2*V2> 

432 PR# INT<Z*<<XCI>+F1>/F2*F5>># INT < CYC I )+Fl >/F2*F5) 

433 PR# "PLTT" 

435 PRINT IN FORM AS*I#T 
437 PRINT IN FORM B$tB5#D2 

440 PR# "IF YOU WISH ANOTHER PARTICLE IN THIS ELLIPSE TYPE YES 
445 INPUT Y$ 

450 IF YS<>**YES M STOP 
455 S=1 LET I »H RETURN 

500 REM SINCE HOLES WERE MISSED# MOVE PARTICLE AND BOUNCE 
505 D2=D2+SQRT< <P-U)*<P-U)+CQ-V)*<G-V) ) 

510 IF ABSC 0) =0 LET V1=-V1 RETURN 
515 M»-<P*B9/<A9*G> > 

520 Wl=< Vl*< l-M*M)+2*V2*M)/< 1+M*M) 

525 V2=< V2*<M*M-1 >+2*Vl*M)/< 1+M*M>' 

530 V1=V1 RETURN 
700 REM PLOT ELLIPSE 
725 11=1. 

730 PR. "PLTL" 

740 FOR 1=0 TO 2*A STEP A/ 10 
750 K=I -A 

760 L=C I 1 )*<SQRT<A9*B9-K*K*B9)/A) 

770 PR. INTCZ*CCK+F1>/F2*F5>)# INT< (L+Fl >/F2*F5) 

780 NEXT I 
785 PR. '*PLTT" 

790 IF Il=l. LET I1--1. GOTO 730 

795 RETURN 

800 REM PLOT HOLES 

810 PR. "PLTL" 

820 FOR 11=0 TO 6.28 STEP .2 
830 K=R< I >*CQS< I 1 )+X( I ) 

840 L=R< I >*SIN< 1 1 )+Y< I ) 

850 IF <K*K)/A9+CL*L)/B9> l PR. -l#-l GOTO 870 
860 PR. INTCZ*<< K+Fl )/F2*F5 > ) » INT< < L+Fl )/F2* T 5) 

8 70 NEXT I 1 
880 PR. "PLTT" 

890 RETURN 
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